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SOUS LES PALMIERS, LA PLAGE... 


Excusez le clin d'oeil, mais nous ne pouvions trouver d'image plus “parlante” pour notre 
couverture en cette période de l’année ! Voir dans nos premières pages le résultat du 
Concours Créativité’90, puisqu'il s’agit du travail d'Eric Galand, un participant qui n’aura 
pas été primé par le Jury mais qui gagne ainsi le “prix ST Mag”, 
et du même coup un abonnement gratuit. Encore bravo ! 


Comme nous vous l’annoncions le mois dernier, ce numéro est “spécial” puisqu'il est 
principalement dédié aux listings et à la programmation (heureusement, il n'y a pas que 
ça 1!..), histoire de passer des vacances studieuses. Sachant que les sujets proposés, pour 

certains, sont très longs à taper (mais c’est aussi un gage de qualité et d'applications 
surprenantes, comme l'émulateur Vidéotex), et que la chaleur n’aide pas à ce dur labeur, la 
disquette du journal sera cette fois, exceptionnellement, formatée en double-face. Pour 
ceux qui rencontreraient des difficultés liées à leur modèle de lecteur, il leur suffit de 
renvoyer cette disquette à la Boutique de Pressimage, en nous demandant de la 
transformer en deux disquettes simple-face. C'était la seule solution pour simplifier 
l'opération, que les intéressés veuillent bien nous en excuser. 


Voilà, sinon Truc est déjà parti en vacances, Machin n’est pas encore rentré, Duschmoll a 
disparu de la circulation, et nous on se casse vite fait ! Bonnes vacances, vous en avez 
sûrement besoin, et nous encore plus... 
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Voici donc les résultats de 
ce grand Concours : 
Graphique qui aura animé 
nos colonnes pendant ces 
derniers mois, et qui aura 
connu une forte 
participation compte tenu 
du sujet spécifique sur 
lequel il portait et du travail 
créatif qu'il supposait. Au 
1er juin dernier, date limite 
de participation, nous 
avions reçu pas moins 
d’une soixantaine 
d'inscriptions, certaines se 
démultipliant sur plusieurs 
catégories, et la catégorie 
“Images fixes” autorisant 
jusqu'à trois propositions, 
vous imaginez le nombre 
d'images à visualiser ! Une 
participation d’un très bon 
niveau global, avec 
quelques surprises 
étonnantes, le public du ST 
en général et le lectorat de 
ST Magazine en particulier 
faisant preuve d’un talent 
certain, inégal certes, mais 
tout à fait rassurant sur le 
degré d'investissement du 
public en matière de 
création graphique. Puisse 
la micro-informatique 
révéler tous ces talents 
dans les mois et les années 
à venir... 


APE CONCOURS 


CRÉATIVITÉ 90 


LES SPONSORS 


Il nous faut tout d'abord remercier 
les sponsors qui ont très favorable- 
ment accueilli notre initiative et ont 
su mettre à notre disposition des prix 
prestigieux qui ont sûrement très lar- 
gement contribué à la motivation des 
participants. Sans aucun ordre de 
priorité, rappelons que “NEC France” 
proposait un moniteur Multisync 3D, 
“Satellite et Télévision” un Genlock 
pour ST, “Digital Concept Internatio- 
nal” une extension mémoire de 4 
mégas, et “Omikron France” un 
disque dur 32 mégas. Voilà pour le 
“hard”, les Editions Upgrade propo- 
sant pour leur part, 4 autres grands 
prix non moins prestigieux puisqu'il 
s’agit de 4 bons d'achat d'une valeur 
de 3000 F TTC sur l’ensemble de 
leur gamme logicielle. Merci à tous, 
donc, d’avoir su joindre l'utile à 
l'agréable, en espérant trouver plus 
souvent des sponsors aussi attentifs 
à ce type de concours. 


LE CONCOURS 


Le Concours Créativité 90 a sollicité 
la participation des créatifs de toutes 
disciplines, des étudiants, des gra- 
phistes confirmés et amateurs, et 
surtout des personnes qui considè- 
rent leur ST comme un outil indis- 
pensable à la créativité personnelle. 
Couvrant l'ensemble des domaines 
concernés par l'image de synthèse 
sur Atari ST, le Concours Créativité 


‘ 90 s’est décliné en quatre catégo- 


ries : Animation 2D/3D, Générique, 
Images fixes et Programmation. 


L'image de notre couverture principa- 
le est l’une des images fixes propo- 
sées qui n'ont pas été primées, mais 
c'est un peu le “prix ST Mag’... Il 
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s'agit d'une image Spectrum de Eric 
GALAND, de Tours, que nous félici- 
tons pour son travail et dont la thé- 
matique se rapproche parfaitement 
de la période de sortie de ce numéro 
d'été de ST MAG... Quant au palma- 
rès officiel, voir un peu plus loin | 


LE JURY 


Le Jury de Sélection, composé de 
professionnels de l’infographie, s'est 
réuni le 3 Juillet 1990 pour visionner 
les oeuvres présentées au 
Concours et décerner l’ensemble 
des prix. Voici la “fiche d'identité” 
des six membres du Jury : 


Anne BROTOT, Fantôme. La socié- 
té Fantôme (l'esprit de synthèse), 
spécialiste des images de synthèse 
en 2 et 3D, crée et réalise des spots 
publicitaires, des génériques, des 
logos, des films institutionnels, des 
personnages animés, pour le ciné- 
ma et la vidéo. Parmi les oeuvres 
signées Fantôme : Le Chien Bleu 
pour FR3, l’Habillage des Fêtes 
pour TF1, et les Fables Géomé- 
triques que vous verrez à Noël sur 
Canal Plus. 


Pierre HENON, Ecole Nationale 
Supérieure des Arts Décoratifs 
(ENSAD), Atelier d'Image et d'Infor- 
matique (A.l.1.). Cet Atelier, au sein 
de l’'ENSAD, est un organisme euro- 
péen de formation initiale et conti- 
nue aux nouvelles technologies de 
l'image. Il rassemble les compé- 
tences techniques de haut niveau 
d'ingénieurs informaticiens et la 
créativité des professionnels de 
l’image qui constituent son équipe. 


L’A.L.I. offre une formation des étu- 
diants de l'ENSAD avec notamment 
un troisième cycle de spécialisation: 
ainsi qu'une formation continue pour 
les professionnels et les entreprises 
grâce à des stages de courte durée 
permettant une approche théorique 
et une réelle pratique des matériels. 


Thierry BRAVAIS, Mac Guff Line. 
La société Mac Guff Line est spécia- 
lisée dans la conception et la réali- 
sation de films en images de synthè- 
se tridimensionnelles, en vidéo et 35 
mm. Mac Guff Line a réalisé entre 
autres “La Vie des Bêtes” pour 
Canal Plus, les génériques pour la 
télévision tels la Pomme d'Antenne 
2, Carnet de Route pour A2, ou la 
Marche du Siècle pour FR3. Les 
images de synthèse des clips pour 
les Rita Mitsouko, l'Affaire Luis Trio 
(“Chic Planète”), Jean-Paul Gautier 
(‘How to do that’), ou les publicités 
telles la montre Seiko, Orangina 
Light (en colloboration avec Mondi- 
no), sont aussi des réalisations 
signées Mac Guff Line. 


Olivier WITTNER, Responsable du 
Département film d'animation et 
image de synthèse, Centre de Forma- 
tion Technologique (CFT) Gobelins. 
Le CFT Gobelins est un établisse- 
ment public d'enseignement dépen- 
dant de la Chambre de Commerce 
et d'Industrie de Paris, et offre une 
formation technologique initiale et 
continue liée aux métiers de l’image. 
Les principaux départements de 
l'enseignement sont : les industries 
graphiques, la photographie, la 
vidéo institutionnelle, le ‘film d'ani- 
mation traditionnel, le film d'anima- 
tion en images de synthèse et l'info- 
graphie (en matière de film 
d'animation, 30 élèves suivent un 
cours sur 2 ans, tandis que les 
cours d'image de synthèse sont sui- 
Vis par 10 élèves sur 1 an). 


Isabelle PLAZANET, Thomson Digi- 
tal Image. TDI est la société leader 
pour les systèmes de création 
d'images de synthèse animées 3D, 
et développeur de “Explore”, logiciel 
de création d'images de synthèse de 
haute qualité qui tourne sur la station 
de travail Iris de Silicon Graphics Inc. 


Hervé MASSERON, graphiste de 
son état. |l est le concepteur/dessi- 
nateur du premier film réalisé entiè- 
rement sur Atari ST, “La Clef des 
Songes”, et faisant partie de la 
Sélection Officielle d'Imagina 88, le 
prestigieux Forum International des 
Nouvelles Images qui se tient tous 
les ans à Monte-Carlo. Auto-didacte, 
il travaille maintenant sur différentes 
stations après avoir exploité à fond 
les capacités du ST. Comme quoi, 
tous les chemins mènent à Rome... 


LE PALMARES 


Formule originale, le Jury, après 
visualisation des oeuvres présen- 
tées, pré-sélection puis sélection 
définitive, a de lui-même proposé 
qu'au lieu d'attribuer arbitrairement 
des prix qui feraient éventuellement 
double usage avec des matériels 
déjà possédés, il soit plutôt attribué 
un ordre de priorité suivant lequel 
les gagnants se détermineraient sur 
le prix voulu. C'est désormais chose 
faite, et nous sommes en mesure de 
vous livrer le palmarès ci-dessous. 
Un certain nombre d'images accom- 
pagnent ce résultat, mais Vous com- 
prenez sans doute qu'il est très diffi- 
cile, dans le cas des animations, de 
montrer quelque chose qui soit vrai- 
ment représentatif du mouvement. 
Isoler ainsi des images fixes peut 
même, parfois, être “dévalorisant” 
vis à vis du résultat animé... 


Trois prix ont été décernés dans la 
catégorie Animation : 


- à Mrs. Olivier BODEUR et Antoi- 
ne MARTIN, pour “Les Aventures de 
Max la Grenouille”, une animation 
réalisée avec CyberPaint. Max la 
Grenouille est un personnage haut 
en couleurs dañs une ville grise 
(vues de Paris en digits noir et 
blanc), et qui “bombe” un mur en 
catimini. Le motif dessiné se prend 
tout à coup l'envie de vivre, et va 
laisser des traces de couleur partout 
où il passe, laissant espérer qu'un 
jour enfin la couleur puisse prendre 
le pouvoir. 

Max La Grenouille gagne ainsi le 
Genlock GST Gold de Satellite et 
Télévision, bravo | 
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"Les aventures de Max la Grenouille” 
par Olivier BODEUR et Antoine MARTIN 








- à Mr Frédéric LOCCA pour “Anti- 
vol”, une superbe séquence réalisée 
à l’aide de Degas, Spectrum, 
CyberStudio, CyberControl, et 
CyberPaint. Tous ces outils ont per- 
mis à Frédéric LOCCA de générer 
plus de 800 images (!), avec des 
décors somptueux retravaillés en 
512 couleurs, et dirigées par un scé- 
nario amusant où un petit être sym- 
pathique va se faire voler sa balle en 
3D par un oiseau. || le suivra jusque 
dans un décor dantesque où, péné- 
trant dans les entrailles de la terre, il 
se fera “foudroyé” par une divinité 
imposante et mécontente d'avoir été 
dérangée. Notre personnage et sa 
balle sont alors “téléportés” sur une 
île déserte, et lors du largage par un 
bizarre vaisseau, la balle tombe mal- 
heureusement à l'eau. Bonheur, une 
superbe raie manta viendra récupé- 
rer la balle dans les profondeurs de 
l'océan et la restituer à son heureux 
propriétaire. 

Cette magnifique animation, et sur- 
tout le travail colossal qu'elle repré- 
sente, sont donc récompensés par 
le disque dur 32 mégas offert par la 
société Omikron France. 





- à Mrs Frédéric BOUDET et 
Franck HERVE, pour “Pierre contre 
Pierres”, une séquence animée 
résultant d’un travail de programma- 
tion personnel et primé par le Jury 
pour ses graphismes originaux. 

Un sculpteur en mal d'inspiration 
découvre, au travers d'un voyage res- 
semblant à une “course au trésor”, la 
raison pour laquelle un autre sculp- 
teur, qu'il admire et qui vit sur une île 
déserte, possède une source d’inspi- 
ration inépuisable. Programmée en 
assembleur, la routine de masques et 
de scrollings est un peu “répétitive” 
vis à vis du scénario, mais le Jury a 
particulièrement apprécié les gra- 
phismes. Pour cette raison, “Pierre 
contre Pierres” gagne l'extension 
mémoire de 4 mégas offerte par Digi- 
tal Concept International. 
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Un prix a été décerné dans la caté- 
gorie Programmation, il s’agit de Mr 

‘Antivol par Frédéric LOCCA Jérôme VOUILLON, de Sassenay, 

qui a réalisé un travail très intéres- 
sant en basic GfA et en assembleur, 
en superposant deux images au for- 
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‘Pere contre pierres" s 
par Frédéric BOUDET et Franck HERVE 


Du 1er juin au 31 juillet, Video Shop vous propose des 
offres promotionnelles "Vacances" avec au choix 


pe aie... "+" 


“Pour tout achat d'une unité centrale supérieur à 5000F hors promotion 
* Promos non cumulables 
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1040 STE 

1040 STE + COULEUR 


[die] TeX/ Ve) |e + 

520 STE + Extension 2 Mo 

520 STE + Extension 4 Mo 

520 STE + Moniteur couleur + 
STAR LC10 couleur 


Tablette CRP A4 2 990 F Trc 
Digitalise VIDI ST + Miximage 1 990 F Trc 


P FN" 
Lecteur 31/2 DF Logiciels 

Disque dur 30 Mo Time Works 790 F 
pre ET EREETe 1 CEE 


Mégafille 44 
NOUVEAU !1! 


Le fabuleux portable d'ATARI « LE STACY » 
En démonstration dans tous nos magasins. 
Un outil qui concurrence à moitié prix, le portable d'APPLE 
(par adjonction de l'émulateur SPECTRE CGR) 


STACY 
+ Spectre CGR 
PL ES 
Tous nos prix s'entendent TTC - GARANTIE 2 ANS 


REPRISE DE VOTRE ANCIEN MATERIEL - CREDIT - LEASING - FORMATION 
Catalogue contre 3 timbres à 9,20 F 
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Par téléphone : 42.86.03.44 Vacances 
Par Minitel : 3615 Code VS Bus de aa oston à 
Par courrier : Vidéo-Shop retirer dans chacun de nos 
VPC BP 105 75749 Paris cedex 15 magasins. 


À MAGASINS À VOTRE SERVICE ! 


AU CENTRE : 47 / 50, rue de Richelieu - 75001 PARIS - M° Palais-Royal 
AU SUD : 251, boulevard Raspail - 75014 PARIS - Métro Raspail 
A L'OUEST : 7, rue de l'église - 92200 NEUILLY - M° Pont-de-Neuilly 
A L'EST : 260, rue de Charenton - 75012 PARIS - M° Daumesnil 


MAGASINS OUVERTS DU LUNDI AU SAMEDI 
de 9 heures à 20 heures sans interruption 


OBCrATAEET 


FAX 42,86,01.22 





mat Spectrum étendu, et qui sont 
échangées 50 fois par seconde. Ces 
images (en fait, cette image puis- 
qu'à l'oeil le “flipping” ne peut être 
ressenti) sont donc affichées en 
24389 couleurs et le résultat est très 
intéressant. Bravo, donc, à Jérôme 
VOUILLON, qui gagne le moniteur 
multisync 14 pouces “3D” de la 
société NEC France. 


Quatre Prix, enfin, ont été attribués 
dans la catégorie Images Fixes, et les 
gagnants disposeront donc chacun 
d'un bon d'achat de 3000 F TTC 
auprès des Editions Upgrade sur 
toute leur gamme de logiciels. Ceux-ci 





seront individuellement contactés afin 
qu'ils fassent leur choix. Il s’agit de : 


- Mr LAFOSSE Laurent, de Cannes, 
pour son image “Pix-Elle”, réalisée 
en monochrome sur Degas Elite ; 

- Mr. BERCIER David, de Mar- 
seille, pour son image “Exether” 
(Degas Elite) ; 

- Melle DEVAINON Sophie, de La 
Rochelle, pour son image “Création” 
(Spectrum 512) ; 

- Mr. GRÉGOIRE Jean-François, 
de Savignies, pour son image “Spa- 
guet” (Spectrum 512). 


CONCLUSION 


Voilà donc un chouette concours 
(comme on aimerait en voir plus 
souvent...) qui se termine de bien 
belle façon, et il nous faut insister 
sur la bonne qualité générale des 
oeuvres présentées. Certes, un Jury 
ayant à se déterminer sur la Créati- 
vité graphique ne peut être que sub- 
jectif (bien que les professionnels 
invités aient une grande habitude de 
voir des travaux de création en ce 
domaine) et sans aucun doute, 
d'aucuns trouveront leurs travaux 
bien supérieurs à certains de ceux 
qui ont été primés. Mais c'est la loi 
d'un Jury humain, et l'absence de 
récompense ne doit en aucune 
façon décourager tous ceux qui ont 
participé, les décisions étant sou- 
vent “déchirantes” dans certains 
cas. Bravo à tous les participants, 
donc, pour la preuve qu'ils nous ont 
donnée d'une réelle effervescence 
en matière de création graphique 
sur ST, et, nous l’espérons, “à la 


“Création” par Sophie DEVAINON prochaine” !... La Rédaction 
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‘Maui par Eñc GALAND 
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Vous avez été 75 à participer au concours que nous 
organisions en collaboration avec Ashiv, distributeur 
exclusif de l'Archimedes en France. Il a fallu vous dépar- 
tager, et ce fut très dur, surtout sur ST où plusieurs 
groupes ont fait un boulot remarquable. 


Rappelons l'objet de ce concours: vous aviez 3 mois 
pour réaliser une démo ayant pour thème le 3615 GEN4, 
le “sapristi" serveur de Génération 4. Nous avons éliminé 
d'emblée les démos reprenant des éléments d'autres 
démos ou de jeux du commerce, honte aux quelques 
participants qui ont osé! 


Nous avons reçu des propositions venant de Belgique, 
du Luxembourg, d'Italie et même du Portugal, mais, bien 
entendu, la majorité des démos nous ont été envoyées 
de France. 


Le niveau technique de certaines démos nous a agréa- 
blerhent surpris, mais il faut préciser que les démos ST 
étaient nettement plus impressionnantes que celles sur 
Amiga, compte tenu des capacités respectives des 
machines. De même, nous tenons à féliciter quelques 
graphistes, à qui nous promettons un bel avenir dans le 
métier! 


LES VAINQUEURS 


Le gagnant sur ST est un groupe bien sympathique, qui 
a conçu un véritable petit chef-d'oeuvre graphique. Il 
s'agit de. de... Naos! Bravo à eux, leur démo est tout 
simplement superbe. Ils ont su réaliser 3 écrans en 
overscan, avec un scrolling différentiel, du multisprite, et 
une superbe déformation de sprite. C'est parfait! 


Vous retrouverez d'autres photos de cette démo dans les 
pages suivantes. Elle s'appelle la "Nitrowave demo”. Les 
créateurs de la démo sont Freddi (programmeur), Ara- 
gorn (programmeur), ATM (graphiste: chapeaul). Naos 
comprend d'autres membres, mais non seulement ça ne 
nous regarde pas, mais en plus nous n'avons pas la 
place de les citer tous. Saluons-les. 


Sur Amiga, nous avons reçu une dizaine de très bonnes 
démos, dont 3 vraiment excellentes. Nous avons malgré 
tout réussi à en distinguer une, après quelques jours de 
délibération, celle de. de. Dragons! 


Elle dure 12 minutes, le scénario est grandiose, les pro- 
grammeurs étant allés jusqu'à inclure une musique de fin 
carrément larmoyante! Tous les écrans sont en overscan 
(facile sur Amiga), avec des vector balls, de la 3D vecto- 
rielle, des bobs, des scrolls différentiels plein écran, si 
dégradés, des effets de miroirs. 


Félicitations à Corsair et Mister Vidéo, ils ont bien mérité 
leur Archimedes! 
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Naos: un écran avec beaucoup de 
sprites, et la trajectoire est aléatoire. 





Dragons: beaucoup de bobs avec 
des déplacements paramétrables. 


Dragons: un écran en 3D vectorielle 
où des objets s'enchainent harmo- 
nieusement. Nous n'avons pas pu 
photographier l'effet miroir du bas. 











Naos: Un seul motif répété sur tout 
l'écran, et le sprite du milieu se tord! 


Les meilleures démos seront instal- 
lées au cours de l'été en télécharge- 
ment, et nous réaliserons des com- 
pilations qui seront mises en vente à 
la Boutique à la rentrée pour un prix 
accessible à tous (nous les annon- 
cerons sur le serveur au cas où 
elles seraient prêtes avant la ren- 
trée). 


Encore bravo aux gagnants, nous 
espérons que tous les participants 
seront sportifs, il a bien fallu faire le 
choix, et ça a été réellement dur! 


A bientôt, peut-être? 








Un grand merci à: Warning sign, 
Future Gang, Future Minds, S.Chan- 
teraukt, G.Couvrie, STMac, The Mas- 
ters, ULM, TRB, TCR (The Corpora- 
tion), Gege from Tec of V8, Iron 
Team, HCS, The Sparks (Furyo), 
Dune, D.Choquez, Zuul, HMD, ST 
Spirit, Oya Shivo, Cakeman, Carlos 
Dias & Paulo Simoes, Ziggy Star- 
dust, H.Laurent, FLeroy, The Ham- 
mers, Equinox, JCP, Megal, Zoka- 
thra, A. Martinet, Blue Bird, Mad 
Vision, Gudul, Wild Chip, Nemesis, 
AKC Force, S.Capo, O.Plouzennec, 
G.Moncaubeig, Terminators (ST), 
Funx, Cool Copper Crew, Snibble & 
Bestoff, Imagic Software, New Celes- 
te, DDT, Spell, T.Dewavrin, Demons, 
Nasty Devils, Skyman & Moby, C. 
Vallee, MC2 & Eureka & Dragon's 
Blood, T.Carmona, P.Cotton, Axiome 
& Leader, Tiriibibi, Digital Wonder 
& Graphman, Sun Connection, 
Bouesse, The Team, T.Landspurg, 
Future Mirror, Chonchon de DMA, 
Impact, Passion, Larcociel (DMA), 
Joshua, F.Azan, F.Mouthaud, S.Her- 
remans, the Bad Xet2auq (Amiga). 


ASH 


L'importateur exclusif de l'Archimedes en France, offre à chacun des deux 
gagnants un A3000 accompagné de son moniteur multisynchro. 


HUMAN TECHNOLOGIES 


Le groupe TRB recevra un Vidi-ST, ainsi que Ziggy Stardust. Frédéric Azan 
recevra un Vidi- Amiga, et dix autres participants sur ST recevront un ZZ- 
Rough, des lots offerts par HUMAN TECHNOLOGIES, que nous remercions. 


AROBACE 


Un bon programmeur ne peut pas bien programmer sans son A-Debog. Aro- 
bace offre cinq A-Debog à cinq programmeurs méritants, merci AROBACE! 
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De nouvelles photos de la démo de TRB, qui gagne un ar ST offert par nt Technologies! La déti de ce groupe belge 


comprend 9 écrans fort bien programmés, et ne comporte que des musiques soundtrack. 





L'overscan et la 3D de Fer méritaient 
bien un VIDI-STI 


né TRE ut, 





Deux écrans ns la démo de The Hemoroidé, qui mélange overscan et sdbparack 
ce qui est tout de même une belle peformance. Ils gagnent un A-Debog. 
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Deux en. extraites de la démo du groupe TEC (from V8), qui comporte 7 écrans, 
et qui nous a été envoyée dès les premières semaines du concours. 
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Un des écrans codés par le groupe 
L'OUETE 








Revoici le magnifique écran de Nicolas 
Rougier & Patrice Borne. 





Deux extraits de la démo de ST Spirit, l'un inspiré de Shadow Of The Beast, et l'autre 
réunissant deux scrolitexts gigantesques. ST Spirit a bien mérité son A-debog! 
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L'énorme scroll transparent d'ULM, qui 
gagne aussi un A-Debog. 
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Un des écrans du graupe Equinox, pro- 
grammé par Al Cool. 





Un des écrans de la démo de Dune, 
(CET E a CR 
















L'incroyable damier de Frédéric Azan, Deux photos extraites de la démo du groupe DMACON sur Amiga, qui dure plus de 
qui nous a vraiment laissés bouche 7 minutes. Vous ne le voyez pas sur ces photos, mais croyez-moi: ça bouge de par- 
bée. Il a bien mérité un VIDI-Amiga! tout! 
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Les deux écrans de la démo d'Imagic, qui exploite vraiment les possibilités de l'Ami- Le très bel écran d'Axiome V et Leader, 
ga: la boule de la deuxième photo rebondit tout en tournant! tout dans le design. 





D ST onçerprne NU TT 


Anselme et Tanguy Dewavrin nous carrément envoyé un jeu d'arcade complet, dont 
voici deux photos (nous n'avons pas réussi à passer le quatrième niveau)... 
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| | "à Le LL. 
Un petit bonzom en vectorballs, réalisé Le sympathique écran de MC2, Eureka, Le scrolltext en rotation réalisé par 
par Snibble et Bestof. et Dragon's Blood. (OETE TS 


NOTA BENE 


Certaines démos n'ont pas 
pu être photographiées, leurs 
auteurs ayant oublié de 
prévoir une option de gel 
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d'écran. Dommage, il en 
manque de très très belles! 












Grand Concours 
International des 
Technologies de la 
Création, ce nouveau 
rendez-vous des 
industriels et des créateurs 
de “tout poil” est apparu à 
l'initiative de la Mairie de 
Paris et de l’A.D.A.C. 
(Association pour le 
Développement de 
l’Animation Culturelle à 
Paris). Il a regroupé plus de 
quarante concours, un 
salon de 12.000 m2 au parc 
floral de Vincennes et un 
gala de clôture au théâtre 
des Champs-Élysées. 





Afin de propulser Paris à l'avant- 
garde des technologies de la créa- 
tion, cette grande manifestation a 
mis en relation le monde des ingé- 
nieurs et des entreprises avec celui 
des artistes. Elle s’est articulée 
autour de deux axes : l'Innovation 
des outils et des instruments, et la 
Création à l’aide de ces outils. Paris- 
Cité a ainsi cherché à réunir des 
personnes de tous horizons pour 
mettre les nouvelles technologies au 
service de la culture, avec un regard 
neuf et efficace. 


LES CONCOURS 


Il s'agissait d’une compétition inter- 
nationale dont l’objet est de soutenir 
la création artistique et l'innovation 
de matériels, logiciels, et instru- 
ments de création, autour des nou- 
velles technologies de l'image, de la 
musique, du langage et de l’audiovi- 
suel. Il n’y avait “rien à gagner” au 
sens matériel d'un palmarès de prix 
offerts aux gagnants, par contre le 
“coup médiatique” que représente 
une telle manifestation constitue de 
fait une formidable promotion pour 
ceux qui ont remporté les “compéti- 
tions”. Dans chaque domaine, un 
jury a été constitué, composé de 
personnalités internationales. Nous 
pouvons ainsi citer de nombreux 
représentants de grandes sociétés 
telles qu'I.B.M. avec Benoît Mandel- 


_ brot (créateur du nom donné aux 


fractales), Walt Disney Pictures, 
l'IN.A. ou encore le C.N.RS. 


LA PARTIE “CRÉATION” 
Divisée en quatre domaines, la 


Création regroupait les images (fixes 
ou animées), le langage (PAO, typo- 


she 


PARIS CITÉ'90 





graphies,.…), l'illustration sonore et 
l'audiovisuel (vidéogrammes infogra- 
phiques). Sans vouloir présenter 
tous les résultats, de peur de vous 
lasser, voici un bref aperçu des pro- 
duits les plus novateurs. 


Le grand prix d'imagerie scientifique 
a été décerné à une visite dans une 
palmeraie, totalement réalisée en 
images de synthèse par le laboratoi- 
re de modélisation du CIRAD. D'une 
bonne qualité, ce produit présentait 
surtout un intérêt technique et 
esthétique, car il n'avait pas de scé- 
nario à proprement parler (ce qui 
n'était pas son but). Pour l'anecdote, 
ses concepteurs sont allés sur le 
terrain prendre toutes les mesures 
nécessaires à sa réalisation. 


Sans scénario apparent non plus 
(ou plutôt “symbolique”), “Eurhytmy” 
a remporté le grand prix d'images 
animées. Toujours en synthèse, il 
s’agit d'une sorte de ballet entre des 
formes humaines (pour ne pas dire 
des hommes !), des chiens et des 
oiseaux qui évoluent autour d'un 
temple. Cette superbe animation 
avait d’ailleurs été présentée à Ima- 
gina’90, le festival bien connu des 
Nouvelles Images à Monte-Carlo. 


En restant dans cette catégorie, le 
prix de la ville de Paris (et le prix 
spécial du jury en musique et son) a 
été attribué à “Nature morte”. Cette 
superbe réalisation de la société 
RIFF associe des images réelles 
35mm avec de la synthèse. Le 
cadre se situe dans un vieux manoir 
abandonné, dans lequel un couteau 
et une fourchette émergeant d'une 
longue léthargie, se mettent en 
demeure de goûter les fruits d'une 
nature morte (rappelant un peintre 
du XVI siècle, Arcimboldo). 


Quant au prix Spécial Fiction, c'est 
le département Animation de la 
société “Fantôme” qui l’a obtenu. 
“La grenouille et le boeuf”, tiré des 
Fables de La Fontaine, met en 
scène les “Patchitoons”, person- 
nages géométriques de dessins ani- 
més. On peut en retrouver un 
exemple dans un interlude de FR, 
avec un petit chien jouant à la balle. 


Dans la catégorie Audiovisuel, le 
seul produit remarquable était le prix 
art et fiction, avec “Réveil” de Euro- 
citel. Dans la même lignée que 
“Nature morte”, soit un subtil mélan- 
ge de synthèse et de réel, un réveil 
mécanique tente d'échapper à la 
traditionnelle gifle matinale du dor- 
meur. Dans une fin tragique, il en 
vient à se suicider, en se jetant de la 
table de nuit. 


Le “langage”, avec sa catégorie 
Typographie, a récompensé une 
police de caractères manuscrite de 
François Boltana. Lors du gala, 
Michel Duchaussoy a lu un texte de 
Marivaux rédigé avec cette police, et 
projeté sur grand écran. 


LA PARTIE INNOVATION 


Elle reprend les mêmes domaines 
que la partie Création, mais récom- 
pense le matériel. Nous avons notam- 
ment remarqué le “Clavier rétroactif 
modulaire”, sorte de gros champignon 
surmonté de touches de couleurs. Il a 
obtenu le grand prix de l'innovation et 
de la recherche musicale, ainsi que le 
grand prix en image-audiovisuel. Le 
soir du gala, son inventeur a exécuté 
une de ses compositions (musique 
contemporaine). 


“Pipelette”, un logiciel de l'université 
Paris VIII, a reçu le prix spécial du 
jury en image-audiovisuel. Réalisé 
autour d’une station Apollo Domain, 
ce produit simule une speakerine. 
Sa voix synthétique est reproduite à 
partir d’un texte dactylographié 
grâce à sa décomposition en pho- 
nèmes. De plus, l’Apollo synchroni- 
se les sons avec les images corres- 
pondant aux mouvements des 
lèvres et du visage: Malheureuse- 
ment, la qualité d'élocution obtenue 
est loin d'être parfaite. 
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‘Surface légèrement sphérique”, où le 


CONCOURS SPÉCIFIQUES 


Une troisième partie comprenait des 
concours de création proposés par 
des entreprises sur leurs produits. 


Ainsi ATARI France présentait le tro- 
phée STE de la création, qui avait 
pour but de reconnaître le travail 
des créateurs sur cette machine. 
Les gagnants sont Antoine MARTIN 
et Olivier BODEUR, avec les aven- 
tures de Max la grenouille en milieu 
urbain, animation réalisée sur 
Cyberpaint. Bravo pour la perfor- 
mance, et nous pouvons les retrou- 
ver dans notre concours Créativi- 
té’90, interne à ST Mag (mais non 
moins prestigieux), ce qui prouve 
que les grands esprits se rencon- 
trent toujours. 


Un autre concours ST, parrainé par 
les éditions UPGRADE, concernait 
des créations réalisées avec Publi- 
shing Partner Master. C'est un 
calendrier de V.A.V. Création qui a 
obtenu le premier prix. 


Enfin, Thomson Digital Image (TDI) 
organisait un concours sur son 
logiciel Explore, Elison sur YSMA 18 
(un réducteur de bruit), ou encore 
Faros sur système Simulatix. 


LE SALON 


Avec plus de 200 exposants, le 
salon du Parc Floral avait pour but 
de présenter les plus récentes inno- 
vations industrielles. Mais les réelles 
nouveautés n'étaient pas au rendez- 
vous, et bien que d'inhabituelles 
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clavier rétroactif modulaire... 


prestations aient été mise en jeu, 
comme la présence de bornes 
Sesame avec un environnement 
proche du Next, ou d'un plateau 
animé par les frères Bogdanoff, les 
parisiens ne se sont pas vraiment 
déplacés. 


On pouvait y trouver un espace diffu- 
sant les oeuvres concourantes, avec 
neuf salles équipées de projecteurs 
vidéo. Le visiteur, muni d'un casque 
infrarouge, avait la possibilité de 
suivre à son rythme les différents 
produits. Un autre espace, le marché 
de l'innovation, mettait en démons- 
tration des produits ne pouvant être 
projetés. Ainsi le système vidéo 
“Pochet” (du nom de son inventeur), 
qui permet une vision en relief sans 
lunettes grâce à un jeu de lentilles 
sur l'écran, était présenté. 


Dans les stands, on pouvait noter la 
présence d’Atari France, avec un 
Stacy, un poste PAO et un STE 
interfacé avec un nouveau Genlock 
de la société Satellite et Télévision, 
spécialement développé pour le 
STE. Qualigraf montrait au public le 
NeXT, tandis que Rank Xerox réali- 
sait chaque jour et en direct le jour- 
nal du Salon. 


LE GALA 


C'est dans le cadre du théâtre des 
Champs-Elysées qu'a eu lieu la soi- 
rée de remise des trophées. En pré- 
sence de nombreuses personnalités 
telles que Jacques CHIRAC, Benoît 
MANDELBROT, ou encore le mime 
MARCEAU, ce gala était animé par 
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"Nature morte", grand prix de la vile de Paris. 


Pierre TCHERNIA. Les créations 
récompensées étaient projetées sur 
écran géant dans un impressionnant 
décor de lasers, fumigènes, feux 
d'artifice et bulles de savon. Les 
remises de prix se sont déroulées 
en duplex assez farfelus avec New- 
York, Londres, Barcelone et Tokyo. 


Voilà pour un rapide tour d'horizon 
de cette première manifestation, qui 


sera désormais biennale, mais qui 
n'a malheureusement, pour sa pre- 
mière édition, pas assez motivé les 
professionnels, souvent garants 
d'une certaine qualité. Globalement, 
l'ensemble de la Rédaction a été 
assez déçu du niveau général, avec 
une “mise en avant’ de réalisations 
souvent peu novatrices ou sim- 
plistes, nous n’en prendrons pour 
preuve que la présentation d'une 
réalisation musicale essentiellement 
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issue d’un arrangeur automatique. 
D'autre part, l'étiquette “internationa- 
le” était quelque peu exagérée, un 
manque certain de participations 
étrangères de haut niveau reléguant 
plutôt cette première manifestation 
au rang de Concours Régional. Mais 
que ces quelques regrets ne soient 
pas mal interprétés, l'initiative est 
plus que louable, l’organisation 
générale était plutôt bien maîtrisée 
malgré quelques petits ratés secon- 
daires, et disposer d'une telle mani- 
festation à Paris ne peut qu'apporter 
promotion et reconnaissance 
publique aux intéressés. Simple- 
ment, la cause de ce manque évi- 
dent de mobilisation, tant des créa- 
teurs que du public, provient bien 
sûr de la jeunesse de ce nouveau 
rendez-vous, et il y a fort à parier 
qu'il acquierera ses lettres de 
noblesse lors de ses prochains épi- 
sodes, à condition que les indus- 
triels, les grandes sociétés de tech- 
nologie, les créateurs professionnels 
et étrangers, s'y intéressent. 


Agathe Sellier et Sébastien Mougey 





Un vaisseau spaïial en grandeur réelle 
sur le salon !1! 





Le tableur relationnel de la 
prochaine génération. 


Multifenêtres: il permet l'ouverture en mémoire 
d'un nombre illimité de feuilles qui peuvent être re- 
liées entre elles de façon dynamique. 


Exploitant entièrement GEM , il présente une inter- 
face étudiée pour une ergonomie maximale. 


Fonctions et macros: 182 fonctions: {4 mathémati- 
ques, 8 trigonométriques, 183 Statistiques, 27 
chaînes, 9 financières, 16 bases de données, 19 da- 
te & heure, 8 logiques. 24 divers. 


| 160 macros préenregistrées. Edition de macros en 

| ligne ou par enregistreur L'ensemble des fonctions 

| peuvent être sélectionnées par menus déroulants. 
Possibilité d'éditer ses propres fonctions. 


Compatibilité: lecture et écritures des fichiers LO- 
TUS. SYMPHONY et ASCI pour communiquer 
avec traitements de textes et gestion de fichiers. 
| Ecriture de metafiles. Fonctions de traitements de 
{zones ASCI particulièrement puissantes. 


Mise en page: lès possibilités de présentation 
| sont inégalées sur un tableur polices et taille modi- 
| fiables, édition d'encadrés et de tableaux pa- 
|ramétrables, formatage très complet des blocs, 4 
|niveaux de dégradés pour les fonds, modification 
|de la hauteur des rangées. 


Graphiques: Histogrammes, lignes. graphes, ca- 
|membert en 2 où 3 dimensions. Possibilité de 
Sélectionner des zones de données non con- 
tigües. Affichage de plusieurs graphiques à l'écran. 


Impression: en mode normal ou impression gra: 
| phique GDOS (compatible G+Plus), dans ce cas on 
obtient une qualité excellente en mode portrait où 
Paysage, de façon très simple. Un programme très 
| performant de paramétrage d'imprimante est four- 
| ni. 

Manuel 200 p. Prix public 990 F. 


"K Spread 4 est d'une puissance fonctionnelle 
jamais atteinte par un tableur sur ST. son prix de 
|vente lui procure le meilleur rapport qualité-prix 
pue débauche de puissance" (Atari Magazine N 
12 

”..Kspread 4 est Un programme tout à fait 
énorme..." (ST Magazine N 41) 


Renseignements produit, support 
technique, dialogue entre utilisateurs 
et avec les concepteurs 
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A PARTIR D'AOÛT 90 


(€) (1142 23 50 44 





Les marques cilées sont déposées par leurs propriétaires respectifs 


W Support téléphonique et minitel directement avec 


| Lecteur de codes à barres reconnu. Inventaire et 


|".Une convivialité de ce type a rarement été 
atteinte sur ST.Gestocks se positionne sans 
| problème en tête des logiciels de gestion sur 





GESTOCKS 90 








La gestion commerciale 


Facturation, gestion de stock, de comptes clients 
et fournisseurs. 


Simple: exploitant au maximum les possibilités 
graphiques de l'Atari, Gestocks est très facilement 
exploitable même par les débutants. 

Rapide: grâce à sa structure de programmation 
Gestocks 90 est extrêmement rapide, ce qui rend 
Son Utilisation tout à fait adaptée en tant que cais- 
se enregistreuse, 

Fiable: plus de deux années d'améliorations, des 
centaines d'utilisateurs, testé avec plus de 10000 
produits. Aucune perte de fichiers n'a été con- 
statée. 

Modulaire: des possibilités ‘à la carte’ peuvent 
être ajoutées pour des utilisations spécifiques. 


les concepteurs. 


Statistiques multicritères. Suivi détaillé des comptes. 
Edition des montants TVA, du CA et des marges. 
Importation et exportation vérs un tableur/base de 
données. 

Prix public 1/75 F 
Une comptabilité générale interfacée avec Ge- 
Stocks 90 est en développement Sa sortie est 
prévue pour l'Automne 90. 


ST..'(ST Magazine N 37) 
"Son extraordinaire simplicité d'utilisation, et ses 


possibilités de suivi des opérations en font un 
produit complet..(Atari Magazine N 13)" 


GESBARRE 


A56 235 
L'éditeur de codes à barres 



















Edite sur imprimante les étiquettes code à 
barres selon 7 standards existants. 

4 possibilités : 

—à parti d'un fichier produits Gestocks 90. de 
façon complète où conditionnelle. 

-en indiquant directement le message à imprimer 
—en indiquant une variable incrémentée. 

—à partir d'un fichier ASCI. Par cet intermédiaire 
Gesbarre permet d'éditer des étiquettes sur tout 
fichier produit sur Atari ST où même en 
provenance d'autres ordinateurs. 


Utilisé en complément avec Gestocks 90 il forme 
le premier ensemble complet de gestion avec 
intégration de code barre sur Atari ST. 

| peut aussi étre utilisé comme station 
d'impression de codes couplée à n'importe quel 
autre système de facturation sur d'autres 
ordinateurs. 


Prix public 2965 F 















Le premier débogueur 
symbolique professionnel 


L'outil de développement indispensable pour la 
mise au point de tous les programmes. 
Compatible avec l'ensemble des langages com- 
pilés ou assemblés sur Atari ST (Assembleur C 
Basic GFA 3, Basic Omikron, etc). 
Entièrement en Français, il est fourni avec un Ma: 
nuel de 150 pages, véritable initiation pédagogique 
au 68000. HotLine télématique avec les concep: 
teurs pour les utilisateurs enregistrés. 

Prix public 590 F 


"ADEBOG, c'est fou ! Absolument génial sa- 
chez qu'on peut probablement tout faire, simple- 
ment, sans se fatiguer, avec ce moniteur." 


(ST Magazine N 40) 


"Adébog est l'aide à la programmation que tous les 


… développeurs (professionnels ou amateurs) 
| attendaient.” 
(Atari Magazine N 13) 





Lancer une application par une touche 
du clavier 





Prix public 490 F 







TURBO ST 


L'affichage à la vitesse de l'éclair 
Prix public 390 F 















G+PLUS 


L’alternative à GDOS" 
Prix public 390 EF] 







MULTIDESK 


Gestion complète des accessoires 
Prix public 390 


















FLEXIDUMP 


Le gestionnaire de copie d’écran 
Prix public 395 F 









CRAFT 


L'environnement complet de 
programmation UNIX" like” 
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“1 LES AIGUILLAGES 


Les terminaux de France Telecom (les 
Minitels 1, 1B, 10, 12, et 2) sont bâtis 
autour d’une architecture modulaire 
découpée en 5 grands ensembles, sauf 
pour le M1B qui n'en comporte que quatre. 
Nous allons de ce pas détailler les 
fonctions et l'utilisation de ces fameux 
modules. 


Voici tout d'abord une liste des cinq modules existant 
actuellement, accompagnés d'un rapide descriptif: 


+ Le module Téléphonie (qui manque à l'appel sur Minitel 
1 Bistandard) sert à la composition des numéros comme 
on pourrait le faire depuis le clavier du Minitel. 


+ Le module Prise se charge des échanges avec les 
périphériques (dans notre cas, le micro-ordinateur). 


* Le module Modem assure la transmission des données 
entre le serveur et le terminal. 


-« Le module Clavier sert à la saisie des informations. 


+ Le module écran assure l'affichage des informations 
reçues. 


A sa mise en marche, ainsi qu'après une connexion ou 
une déconnexion, le logiciel du Minitel se charge de res- 
taurer les aiguillages programmés d'origine, à savoir: 


+ Quand le modem n’est pas connecté, le clavier émet 
vers le modem et la prise péri-informatique, alors que le 
modem affiche les informations à l'écran, et émet vers 
lui même. La prise émet vers l'écran. 

Lorsqu'on tapote sur le clavier, les caractères s'en vont 
par la prise vers votre ST, mais aussi au modem qui se 
réexpédie ceux-ci pour finalement les afficher à l'écran. 


C'est cette boucle du Modem sur lui-même qui génère 


l'écho. 





DU MINITEL 


+ Une fois le modem connecté, le clavier émet au 
modem qui transmet aux modules prise et écran, alors 
que la prise émet au modem. Les informations envoyées 
par le serveur sont donc affichées à l'écran mais aussi 
envoyées par la prise, qui de son côté émet vers le 
modem, et par conséquent vers le serveur. 


Le module téléphonie n’est en principe pas connecté. Si 
tout cela vous paraît bien ardu, reportez-vous aux sché- 
mas joints, qui illustrent les liaisons par défaut. 


Toutes ces liaisons (qu'on appelle aussi “aiguillages”) 
sont librement et facilement modifiables. On utilise le 
protocole (c'est ainsi qu'est appelé le logiciel de notre 
bon Minitel), qui interprètera vos commandes quel que 
soit l'état des aiguillages, puisqu'elles ne constituent pas 
à proprement parler des informations destinées au servi- 
ce. Elles sont donc interprétées dès leur arrivée sur le 
modem ou sur la prise. 


Pour assurer la mise en relation des différents modules, 
on a affecté à chacun un code de reconnaissance qui lui 
est spécifique. Comme les aiguillages ne fonctionnent 
que dans un sens (pour avoir une liaison entre “A” et “B” 
il faut activer l’aiguillage de “A” à “B” mais aussi celui de 
“B” à “A"), il y a.un code pour l'émission et un pour la 
réception. 


La mise en route ou l'arrêt d'un aiguillage se fait en 


envoyant PRO 3 suivi des codes suivants: commande, 
module émetteur et module récepteur. La commande 


SN 


ETS 


Ecran 








Prise —— 





Clavier 








Les aiguillages en mode local 
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ismrc Serveur minitel MUST «ram 
et Hébergements de services en 3614 ou 3615 
pour CLUBS et SOCIETES à partir de 275 Fr / Mois 


Sur ATARI de 1 à 8 voies 


Les logiciels serveurs MUST sont des logiciels sous GEM conçus 
pour créer et exploiter facilement un multi-serveur minitel 
monovoie ou multivoie de haut niveau,ils fonctionnent avec un 
ATARI 1040 ,ou avec un deuxième lecteur,ou sur disque dur,et sur 
tous les types de minitel et de téléphone. Fonctionne en haute ou 
basse résolution : 

Le serveur MUST 1 voie =2480 Francs TTC Toutes les 
possibillitées d’un serveur professionnel avec module de commande 
intégré pouvant gérer 99 catalogues de 10000 articles chacun,tout 
vous est possible,arborescence et pages illimitées modifications des 
pages à distance,2 téléchargements TRANSTEASER,bals 
binaires,toutes options sysops possibles,9 niveaux possible.Le 
MUST des serveurs,livré en mallette avec cable détection sonnerie. 






























Clavier 

















Qu'est-ce-qu'il est connecté, ce Minitel, ohlala dis donc! 





VEUR+ VIDEOTEX+ G = 299 tt 


KIT VIDEOTEX 980 Francs TTC Pour ATARI 1040 ST 


COMPOSEUR VIDEOTEX:Le composeur graphique 
professionnel sur ST VIDEOTEXTIS EUR:des images degas. 

EMULATEUR :Toutes les fonctions professionnelles composition: 
automatiques des NO de tél,reception fichiers,sauvegarde,protocole 
de transfert incorporé,visualisation ST et minitel.3 logiciels en 1. 
En plus 2 composeurs dynamiques 40 et 80 colonnes . 


TELREP : 240 Fr ttc 


Serveur accessoire ACC : Mini serveur automatique 
ou manuel..…..Lorsque votre ordinateur est occupé à 
une autre tache...une connexion ...TELREP prend le 
relais, (page minitel+dialogue minitel possible). 


TELAUTO : 270 Fr ttc 


Gestionnaire d’adresses ACC : composition 
automatique des numéros de téléphone,numéros 
TELETEL prédéfinis,cadran téléphonique incorporé. 


Cable minitel = 140 Fr, détection sonnerie = 180 Fr 


| Votre serveur minitel 
en 3614 ou 3615 
Hébergements en 3614 ou 3615 


Pour clubs,sociétés,commercants à partir de 275 Fr tte par mois: 


Écran VIDEOTEX 3800 Fr ttc 


Composeur de pages vidéotex_ professionnel pour PC 
"7" "#6" 7 TOC PIONESSIONNEr POUT LE 
Logiciel pour créer un serveur TRANSPAC 
HEAVEN de 4 à 128 accès sur IBM PC 


TRANSP AC ou RTC 100% compatibles;avec MS- DOS 


Et son prix !!! 16500 Fr ” 
Po Pois 


CE Je désire recevoir une documentation gratuite 





pour activer un aiguillage est ON ($61), et son inverse 
est OFF ($60). Par ailleurs, le tableau ci-dessous résu- 
me les codes de tous les modules. Ainsi, pour faire en 
sorte que cé qui vient du modem ne s'affiche pas à 
l'écran, on envoie simplement $1B $3B $60 $58 $52. 


HABU ous [ner 0! 


Ecran 
Clavier 
Modem 
Prise 
Téléphonie 
































Si vous voulez utiliser ces commandes pour modifier les 
aiguillages du Minitel connecté (si vous êtes sysop d'un 
micro-serveur RTC), il ne faut pas oublier d'envoyer une 
demande de transparence au Minitel, sans quoi les 
codes seraient interprétés par votre terminal, ce qui 
pourrait provoquer des erreurs plus ou moins comiques. 
Au cas où, je vous rappelle la syntaxe: PRO2 TRANS- 
PARENCE <x», soit $1B $3A $66 <x>, où <x> représen- 
te le nombre de caractères que votre Minitel doit ignorer. 














Voilà, c'était le dernier article de ma série. Je pense 
avoir fait le tour de la question (NDLR: laquelle?), mais 
peut-être me retrouverez-vous épisodiquement pour un 
article ou deux. Cependant, si vous avez des questions 
à me poser, j'y répondrai bien volontiers sur le. 


3615 
STMAG 


Emmanuel SCHWEITZER, 
dit STBUG. 























NOM : Prénom: 

Adresse : 

Code postal : Ville 

Téléphone : Revendeurs nous consulter 





À retourner à : MUST B.P.004 Barneville Carteret 50270 
tél : (16.) 33.53.13.66 Renseignements téléphonique 
Démonstration commande SERVEUR MINITEL (16.) 33.04.55.55 


Ou notre serveur minitel 3614 MUSTEL 













Au moment où nous 
écrivons ces lignes, le 
projet de loi de Monsieur 
Quilès concernant la 
réforme des PTE, et 
amenant la création de 
deux entités autonomes 
appelées “La Poste” 
(bougez avec elle) et 
“France Télécom” (un 
avenir d'avance) a été 
publié au Journal Officiel, 
parution marquant sa mise 
en application. Comme 
vous allez pouvoir le 
constater, ce projet 
soulève quelques 
problèmes que nous 
tenons à vous exposer. 


RANCE TELECOM: 
L'ARNAQUE ? 


A LA PECHE AUX MOULES... 


D'après les promoteurs de ce projet, 
il devrait permettre à ces entreprises 
nouvellement promues à partir de 
l'administration postale et des télé- 
communications d'affronter le mar- 
ché international dans ces domaines. 


… MOULES, MOULES, JE NE 
VEUX... 


En fait, le but - souvent avoué à 
demi-mots, puis nié pour éviter 
d'offusquer - est d'imposer en dou- 
ceur ce que tout un chacun refuse- 
rait, à savoir la privatisation d'un 
service public dont le succès a été 
financé par les deniers publics. 
Cette très probable privatisation est 
amenée à grands coups publici- 
taires depuis déjà quelques mois. 
Relevez le ridicule de la situation : 
prouver aux contribuables - à leurs 
frais - qu'ils ont un bon service 


public, pour mieux préparer son 


passage au privé. 
… PLUS Y ALLER MAMAN, LES... 


Ce projet met en évidence la boulimie 
de France Télécom en matière de 
prises de participation dans de nom- 
breuses sociétés, jugez vous-même : 
Transpac contrôlé à 97 %, ou TDF à 
51 % (voir encadrés). On trouve 
même dans le dernier rapport d’activi- 
té le titre de “Groupe France Télé- 
com”, terme particulièrement incongru 
dans le cadre du service public. 
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… GENS DE LA VILLE, VILLE... 


Parlons de Transpac, justement. 
Rappelons que c'est la société qui 
gère le réseau national dit “à com- 
mutation de paquets”, utilisé par 
Télétel (le Minitel, quoi). France 
Télécom utilise ce réseau pour ache- 
miner les communications entre les 
Minitels et les serveurs 3615 et 
consorts. Chacun sait combien coûte 
une connexion en 3615 (1 franc la 
minute, pour ceux qui reviendraient 
d'un très long voyage). France Télé- 
com justifie ces hauts tarifs par ceux 
pratiqués par Transpac (le genre 
“c'est pas nous c’est eux”), un dis- 
cours malhonnête quand on connait 
les 97% cités plus haut. 

Notons au passage que Transpac 
dispose d'un système de modulation 
horaire de ses tarifs (dégressifs en 
fonction de l’heure), qui n’est pas 
répercuté dans le cas des communi- 
cations de type “kiosque” (3615 et 
plus), et ce uniquement par la volon- 
té de France Télécom. Vous trouve- 
rez d’autres incohérences de ce 
type dans les encadrés ci-contre. 


… VILLE, M'ONT PRIS MON... 


A travers l'exemple de la fausse 
concurrence Alphapage-Opérator, 
expliqué lui aussi dans ces colonnes, 
on arrive au problème du monopole à 
outrance exercé par France Télé- 
com, de par sa nature de service 
public, mais qui rivalise malgré tout, 
en tant qu'entreprise maintenant 
indépendante, avec d'autres sociétés 


commerciales qui ne disposent pas 
de tous les avantages qui sont accor-’ 
dés à cette ex-administration. 


.… PANIER, MAMAN ! 


Le pire, c'est que France Télécom 
profite de son nouveau statut pour 


Le Minitel 2 


Le Minitel, tout le monde connaît. 
C’est lent, c'est cher, et on peut 
mieux faire. Sur le principe tech- 
nique, difficile de tout changer, on 
est encore condamné aux malheu- 
reux 1200 bauds et aux fatidiques 
7 bits pour un bon moment. Par 
contre, les terminaux eux-mêmes 
sont largement améliorables, et 
c'est ce que France Télécom a fait 
avec le Minitel 2, conçu par le 
CNET et fabriqué par Telic Alcatel 
et RPIC. Enfin un terminal correct, 
capable de composer des numé- 
ros de téléphone, intégrant un 
répertoire de numéros, et agré- 
menté d’un mode “haute résolu- 
tion”, le DRCS. Tout ça pour 20 
petits francs par mois. Une misère. 
Là où le bât blesse, c'est que 
France Télécom en profite ainsi 
pour se mettre en conformité vis-à- 
vis de la Cour des Comptes, qui 
avait jugé la distribution gratuite 
des Minitels comme probléma- 
tique. En effet, le Minitel 2 est 
sorti. et le Minitel 1, le seul qui 
soit encore gratuit, a disparu ! Offi- 
ciellement, évidemment, c'est loin 
d'être le cas, mais dans la pra- 
tique, il devient très très difficile 
d'obtenir un Minitel 1 ou 1B. C'est 
bien une des rares fois où l'avis de 
la Cour des Comptes est si rapide- 
ment respecté. Après avoir distri- 
bué gratuitement 5 millions de 
Minitels, France Télécom profite 
ainsi de l'importance prise par ce 
moyen de communication pour le 
faire payer. Tant pis pour les utili- 
Sateurs comme pour les fournis- 
seurs de service, on change les 
règles du jeu en cours de partie. 
Là, nous avons l'impression de tirer 
Sur une ambulance : comment peut- 
on s'attaquer à France Télécom, qui 
a volontairement fait un manque à 
gagner de plusieurs dizaines de mil- 
lions de francs par mois depuis 
presque dix ans !? 











Alphapage et Operator sont dans un bateau... 


Vous avez certainement remarqué le développement massif des “pagers”, 
ces petits boîtiers ornés d’un tout aussi petit écran, et qui beepent à la 
moindre sollicitation. Deux concurrents semblent s'affronter sur le marché 
français : Alphapage de France Télécom et Operator de TDF. Si vous avez 
pensé une Seule seconde que France Télécom a pu abandonner son 
monopole, retournez à la case départ, et relisez plus attentivement la par- 
tie consacrée au “Groupe”. 

Ainsi, Vous verrez que TDF et France Télécom, c'est blanc bonnet et bon- 
net blanc, le premier appartenant au second (par l'intermédiaire de la 
Cogecom, histoire de compliquer un peu quand même). Ça explique en 
partie le fait que TDF puisse avoir aussi de son côté ouvert une brèche 























aller attaquer les administrations 
nationales d’autres pays, où la déré- 
glementation a permis de supprimer 
toute forme de monopole, alors qu'en 
France nous restons condamnés à 
accepter sans broncher les exclusivi- 
tés de France Télécom. Voyez à ce 
propos l'encadré sur l'agrément. 


‘RENDEZ-MOI MON PANIER ! 


Il est relativement évident - c’est du 
moins ce que nous espérons - que 
d'autres que nous réagiront face à ce 
projet. En particulier, il est probable 
que les syndicats représentant le 
personnel de France Télécom agiront 
comme ils le jugeront bon, et cela 
pourra aboutir à des grèves de 
l'ampleur de celles qui ont déjà blo- 
qué les Postes par le passé (rassu- 
rez-VOUS, Ça, nous ne l’espérons pas, 
nous serions les premiers atteints l). - 


Jacques Caron et Mic Dax. 


INTERNATIONALES 


Nous DevoNs £vier d’oubLieR 
nos Racines Car 45 NouS 
Progresserons DANS le Domai- 
ne Tecmique, Plus nous Aurons 


(Rapport d'activité 89 du Groupe France Télécom) 


La citation du Mois ! 


dans son monopole des télécommunications par voie hertzienne. 
Et dans tout ça, c'est le contribuable qui paie encore et toujours les 
grandes campagnes de pub qui leur permettent de s'affronter. 





Agrément 


La grande majorité des utilisateurs 
du réseau téléphonique connait 
l'agrément - si ce n'était le cas, 
France Télécom nous en a rappelé 
l'existence il y à quelques mois au 
travers d'une campagne de publici- 
té qui nous a encore coûté fort cher 
- matérialisé par la fameuse éti- 
quette verte. Les plus débrouillards 
auront remarqué que cette fameu- 
se étiquette, d'une part, est géné- 
ralement synonyme de prix supé- 
rieur à un appareil d'importation 
non muni de cette identification, et 
qu'en plus, un appareil marqué de 
la sorte n'est pas forcément 
meilleur que son homologue qui en 
serait privé. 

Disons le tout net, l'agrément n’est 
que pur protectionnisme, permet- 
tant à France Télécom et à ses 
partenaires de protéger un marché 
qui demeure captif. A l'heure où 
l'Europe approche à grands pas, 
on peut se demander si une telle 
chose peut encore exister. Eh bien, 
oui. D'autant plus que France Télé- 
com, a même réussi à obtenir des 
autorités européennes compé- 
tentes une splendide dérogation 
l'autorisant à poursuivre de tels 
agissements, alors que la libre cir- 
culation des marchandises, et 
l'homogénéisation des réseaux 
sont à l'ordre du jour dans le reste 
de l’Europe | Bref, France Télécom 
fait bien partie de ceux qui profitent 
de l’Europe, mais qui n'en pâtis- 
sent pas, aux dépends de qui ?.. 

































Pour 12 centimes de plus... 


Les utilisateurs inconditionnels du Minitel ont tout de 
suite remarqué le changement : à chaque connexion 
sur un service, 12 centimes supplémentaires partaient 
dans l'escarcelle de France Télécom. Aucune raison 
valable n’a jamais été avancée par l'Avenir d'Avance, 
si ce n'est des bruits comme quoi cette surtaxe évite- 
rait les tentatives de piratage des services, en particu- 
lier en 3615 (on ne sourit pas !). Là encore, rien n’a été 
négocié avec les fournisseurs de services, pourtant 
qualifiés de “partenaires” quand il s’agit de signer les 
contrats France Télécom. Ils ont effectivement signé, 
mais les conditions changent régulièrement entre- 
temps, sans qu'ils en soient seulement prévenus. Un 
rapide calcul pour le seul moisde mai ::les réseaux 
concernés ont enregistré 60 millions d'appels, que l'on 
multipliera par 0.12, ce qui dépasse les 7 (sept!) mil- 
lions de francs (nouveaux!) par mois. Et c'est le chiffre 
minimum, puisque l’on ne connait pas le nombre de 
connexions réelles aux serveurs pour chaque appel : 
on a imaginé pour ce calcul que l'utilisateur de Télétel 
ne se connecte qu'à un seul serveur par appel... Qui a 
parlé d'ambulance? 


De la notion de 
“service public”. 


Pourquoi crions-nous au loup ? Il nous semble que 
notre conception du service public n’est pas compatible 
avec celle qu'envisage France Télécom. Le terme de 
“Groupe” à lui seul nous choque : pourquoi pas un hol- 
ding, voire un conglomérat d'Etat ? France Télécom 
étant financé par l'Etat (est-il utile de rappeler que ce 
sont les contribuables qui remplissent les caisses ?), il 
a pour but de rendre service, au sens noble du terme, 
et non de monnayer son activité comme n'importe quel 
commerçant. Tout comme la SNCF ou l'EDF, l’entrepri- 
se n’a pas à dégager de bénéfices, elle devrait juste se 
limiter à pratiquer des tarifs établis au seul regard de la 
rentabilité pour des services réellement nécessaires. 
Payer des campagnes de publicité pour des services 
comme le téléphone ou les envois postaux (services 
“de première nécessité”) pour lesquels l'Etat a l'entier 
monopole, est-ce vraiment nécessaire ? Payer des 
clips ineptes pour nous avertir que nous pouvons partir 
tranquillement en vacances puisque La Poste et Fran- 
ce Télécom veillent sur tout, est-ce vraiment indispen- 
sable ? Sans compter l'effet Big Brother... 

Enfin, ces campagnes de marketing ne sont pas inno- 
centes : il s’agit de rappeler que le “Groupe France 
Télécom” se porte très bien, et que ce serait une excel- 
lente affaire, pour le secteur privé, que de l'acheter. En 
oubliant au passage que si France Télécom se porte. 
effectivement très bien (merci pour eux), c'est d'abord 
et avant tout grâce au Trésor Public 
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LES RTC SUR ST 


Avant toute chose, j'aimerais dire deux mots à tous les 
utilisateurs de Glopserv. Ce logiciel a l'avantage d'être 
absolument et très facilement paramétrable, ce qui 
vous permet, entre autres, de changer les pages et 
l'arborescence. Si je vous dis cela, c'est parce qu'il 
existe de plus en plus de RTC réalisés à l’aide de 
Glopserv, et qu'une bonne partie de ces RTC ont 
conservé les pages et l’arbo fournie par défaut. Cela 
donne naissance à toute une floppée de serveurs fort 
sympathiques, mais tous quasiment identiques. Des 
logiciels comme Glopserv, à la fois bon marché et 
puissants, permettent à n'importe quel passionné de 
télématique de créer un serveur complètement origi- 
nal, alors profitez-en! 


iAPX va ouvrir un RTC sur ST et PC à partir du 17 
Juin. Son nom: FASHION, au (16) 55 50 13 02, à 
Limoges. Deux serveurs PC et ST seront développés, 
un en tâche de fond et un normal pour chaque machi- 
ne. Une idée très intéressante, mais je n'ai malheu- 
reusement pas réussi à joindre Fashion jusqu'ici. 


DIEPTEL au (16) 35 82 44 20 devient le serveur offi- 
ciel de l'ACDAS (Association Citizen-Band Dieppoise 
d’Assistance et de Secours). RTC donc dédié aux 
cibistes et radio-amateurs. Il sera parrainé bientôt par 
la FFCBL (Fédération Française de la Citizen Band 
Libre). RTC donc dédié aux amateurs de sigles 
bizarres aussi. 


R-CULE tourne sous R-MES, fait partie du GAM, est à 
Marseille, a un numéro de téléphone (le (16) 91 92 37 
00), vous propose des rubriques voiture et poésie, et 
c'est presque tout. 


SOOK y'en a gentil serveur de l'ESIGELEC sous 
Glopserv, quoique très vide quand même. Rejoignez 
donc Scrib au (16) 35 62 10 65, et animez un peu son 
RTC! 


Il y a encore des RTC sous Repteaser! La preuve, 
PIXEL en est un. Il est à Brive, au (16) 55 92 04 50, et 
vous propose les infos, la rubrique, les BALs et le télé- 
chargement habituels. 


LOISITEL*06 est un RTC libre, bien que ce soit le 
numéro 6 du réseau Loisitel. Rejoignez-le au (16) 93 
71 99 O7. 


Le serveur CREPUSCULE, au (16) 51 32 96 20, vous 
offre des tonnes de rubriques, dont une dédiée aux 
Jeux de Rôles. 


Il y a dans l'Essonne un RTC MICROTEL sous Glop- 
serv, ouvert de 18h00 à 22h30 tous les jours et de 
08h00 à minuit le week-end. Son numéro est le (1) 69 
40 03 92. ; 


Voilà, vous pouvez toujours me joindre en BAL WAT- 
SIT sur le 3615 STMAG, pour m'annoncer tout ce que 
vous voulez. Allez, bonnes vacances à tous les Guer- 
riers de la Sémiotique! 
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VS 
RESUSE 


D ÉTÉ 1989 
CATALOGUE DE LA BOUTIQUE 


Ce résumé du catalogue vous permet de connaître 
l’ensemble des produits disponibles à la Boutique de 
Pressimage. Pour en savoir plus sur chacun des 





produits, il faut se reporter aux catalogues parus dans 


les numéros d'été de ST Mag (32) et Génération 4 (13). 
Si vous ne les possédez pas, vous pouvez les 
commander au prix de 25F chacun (port compris), ou 
bien vous reporter au catalogue seul, que vous pouvez 
commander au prix de 10F (port compris), 


remboursable dès le premier achat. 


CONMECTIQUE e. 
CABLE MIDI 1.20m 60F 
5 m 95F 
ATEUR VIDEO 295F 
CORDON IMPR 145F 
Co L 90F 
CORDON PERITEL 260F 
RALLONGE JOYSTICK/SOURIS 
-20 cm 60F 
-2 m 95F 
DISQUETTES ET LECTEURS e 
DISQETTES TDK SF DD 
- la boîte de 10 100F 
LECTEUR SF 354 800F 
LECTEUR DF 
(Pour anciens 520 ST) 990F 
RANGEMENTS TOILES 
-10 disks 120F 
-20 disks 160F 
HOUSSES ET SOURIS . 
HOUSSES ST et AMIGA 
-écran 65 à 85F 
clavier 85 à 105F 
MOUSE MAT 


TRACK BALL 3.0 
DIVERS e 


RUBAN SMM804 60F 
RUBAN STAR NL-10 ; 95F 
CASSETTES AUDIO 

-lot de 10 30F 
FILTRE DIGIT DG88 2200F 


- ST 
BIEN DEBUTER SUR ST 










TRUCS ET ASTUCES en Gfa 
MUSIQUE ET MIDI 

SOS GFA BASIC 

AU COEUR DE L’ATARI ST 


- AMIGA 

BIEN DEBUTER SUR AMIGA 

LE LIVRE DE l'AMIGA BASIC 

LE LIVRE DU GRAPHISME 

- DIVERS 

COPILOT 145F 

INITIATION AU Gfa (fiches seules 75F 
- avec classeur 100F 


LOGICIELS 
ATARI 


ST MAGAZINE (depuis No 3) 25F 
GENERATION 4 it No1l) 25F 
MICRO IMPRESSION (depuis No 1) 25F 


Retrouvez tous les listings publiés 

dans ST MAGAZINE sous forme 

de fichiers .DOC ou directement 

sous forme éxécutable. 

Alors fini la corvée de la saisie !! 
l'unité 75F 





Achats depuis l'étranger 


Pour les paiements sur l’étras- 
ger nous ne pouvons accepter 
que trois modes de règlement . 


- Le mandat postal. 

- L'Eurochèque avec une ma 

joration de 7116 FF sur le 
montant de votre facture. 

-Le virement "SWIFT"' de 
banque à banque : 












Pour le compte de la société 
Pressimage 


Compte numéro : 20252303 
Banque : SG Louis Blanc 


Code ichet : 03500 

Code ÉWIFT" : SOGE ER PP 
En N'OUBLIANT PAS DE 
PRECISER À VOTRE BAN- 
QUE LE MOTIF de la tran- 


saction, par exemple : 
abonnement, achat disquette. 


SN = 
























JEUX ET LOISIRS 
-ED 75F 
-ED Il 76F 
ASTROLOGIE 195F 
ATOMIA 75F 
AUTO ECOLE 95F 
BATAILLE NAVALE 75F 
BREAK YOUR MIND 75F 
CYBERTRON 75F 
DEMO BOLO 76F 
DEPASOFT 75F 
GAGS 75F 
JEUKRAK 75€ 
LES GROSSES TETES 75F 
LOTO 75F 
MAGICPACK 195F 
MEC LOVE STORY 75F 
MEMORIX 75F 
MINOS 76F 
MONI MORSE 76F 
MONOPOLY 75F 
MOTS CROISES . 145F 
POKER CLUB 76F 
PUZZLES 75F 
INOS 76€ 
I TEST 76€ 
UIZZ 75F 
RESEAUX NEURONAUX 95F 
REVERSI BRAIN (couleur) 95F : 
REVERSI BRAIN (toutes résol.) 145F 
SIMUL GESTION ENTREPRISES 75F 
SNARK I 75€ 
SPACE KILLER 75F 
SPACE TILE 75F 
SPOOK 75F 
ST PORTRAIT 75F 
STRIP BREAK-OUT 75F 
UMS Scenary Disk ANTIQUITE 1 75F 
X MASTER 76F 
YAMS 75F 
GRAPHISME e 
SH rs 75F 
ATADRAW 195F 
CLIPBOARD 75F 
DEGAS COLLECTION 1 75F 
DEGAS COLLECTION 2 75F 
DEGAS COLLECTION 3 75F 
DEMO IMAGIC I 75F 
DEMO IMAGIC II 76F d 
ECRAN AMIGA 75F 
GEMFED 75F d 
GRAPHIC DEMO 75F 
FIXIMAGE 95F 
IMAGES DIGITALES 75F 


LE DEFOULOIR 














































VIRUS KILLER 


ATABASE 250F 
8 AMERICAIN 75F 
PUNCHS Vol. 1 75F 
COCKTAILS 95F 
SHAFTESBURY 75F 
MATERNELLE 4/5  95F 
BACKUP ST 250F 
HYPER ST 195F 
AWELE 75F 
PHARM-ASSIST 75F 
& MATHS-ATARI 75F 
MEGABANK II 250F 
ë Mi MIDI EDITOR 195F 
3D MOLECULE 250F 
& SIGN GEM 75F 
B.S.U. 75F 
à SPECIAL Scrolling 75F 
COMM 03 250F 
MATERNELLE 5/6  95F 
HERSHEL 250F 
S950 MIDI PROG. 195F 


PIXEL HUNTER 


SPECLOAD 
TINYCLIP 
TINY COLLECTION 1 
TINY COLLECTION 2 
TINY COLLECTION 3 
UTILITAIRES DEGAS 


ZZ-ROUGH 1.0 195F 

LES TAHITIENNES 50F 

LES ANNAMITES 50F 

LES STARS DU X 50F 

GROS PLAN OF 
COMMUNICATION . 
COMMUNICATION 1 75E 
CYRUS 550F 
KERBIT 195F 

ST COMM 75F 

ST COMPO MONOCHROME  200F 

LA PROGRAMMATION . 

BASALG 150F 
CREER UN JEU EN GFA 75F 

GEM KIT 95F 
GFA-TINY 75F 

HELP 68000 75F 

& LIBRAIRIE ASSEMBLEUR 75F 
LIBRAIRIE OMIKRON I 75F 
LIBRAIRIE OMIKRON II 75F 

à LIBRAIRIE PASCAI, OSS 75e 
LOGO Francais BASIC Corrige 75F 

M OSCAR OMIKRON 75F 
SOURCES C 75F 

Fi SOURCES PASCAL 75F 
STOOLS 95F 

KIT GFA-LINK - ST GEM 195F 

KIT GFA-LINK - ST MASTER 195F 


KIT GFA-LINK - ST MATH-STAT 195F 














KIT GFA-LINK - ST MATHS  195F 
ST GEM 75F 
ST MATHS 75F 
ST MASTER 75F 
SUPER PACK 145F 
LE COIN MEDICAL . 


Vous y trouverez une multitude de 
sujets médicaux, en passant par les 
planches du bassin en coupe, les 
tablaux pharmacologiques usuels 
ainsi que des thérapeutiques de 
psychiatrie, homéopatme … 


À LÀ. ln 





ORDONEWS-AIDE.ACC 95F 


ORDONEWS 1: DERMATOLOGIE 95F 
ORDONEWS 2: O.R.L. 95F 
ORDONEWS 3: DIETETIQUE 95F 
ORDONEWS 4: PSYCHIATRIE 
NEUROLOGIE  95F 


ORDONEWS 5: CARDIOLOGIE 
RHUMATOLOGIE 95F 
ORDONEWS 6: HOMEOPATHIE 120F 


ORDONEWS: TOUT! 450F 
ORDONEWS: DEMO MEDI-ST  95F 
ORDONEWS: MEMOS.ACC 120F 
ORDONEWS: MAGAZINE.ACC  150F 
ST-DIET 1 95F 
ST-EPID 1 95F 
ST-BIO 1 95F 
ST-PHARM 1 95F 
ST-ANAT 1 95F 

MUSIQUE ET SON « 
ANIMAUX 1 75F 
ANIMAUX 2 75F 
CREER LE SON EN GFA 95F 
CZ PHONIX 75F 
EDITEUR ROLAND D10 195F 
INTERMUSIC 195F 
FB01 TERMINATOR 195F 
INTER-DIGIT 195F 
MIXTABLE 95F 
MUSIQUE MAESTRO 95F 
MYREPLAY 95F 
MT 32 EXTENSION 195F 
NATURE 1 75F 
NATURE 2 75F 
OCEAN 1 75F 
OCEAN 2 75F 
TED 195F 
TIR/EXPLOSION 75F 


VOTRE CERVEAU 
NOUS INTERESSE ! 


Vous vez commercialiser vos 
logiciels par l'intermédiaire de la 
Boutique. Il suffit de nous en- 
voyer votre programme sur dis- 
quette. Si celui-ci est retenu, 
vous toucherez environ 26% du 
prix de vente hors ta:es (con- 
tactez nous pour de plus amples 
renseignements). Par pitié, là 
aussi, ne nous écrivez pas en 
décrivant votre logiciel pour sa- 
voir s'il nous intéresse ou non. 
Tous les projets sont bons, c'est 
la réalisation qu'il faut juger ! 
Envoyez-le directement, car 
nous ne pouvons répondre à 
votre courrier. Un délai d’un 
mois minimun est à prendre en 
compte pour que le service Col- 
laboration Boutique vous 
renvoie des éléments, car les 
propositions sont très nombreu- 
ses. Contact privilégié pour les 
propositions et le suivi des 
auteurs: 
"Collaboration Boutique" 
PRESSIMAGE 
210 rue du Faubourg St Martin 
75010 PARIS 






TT 
AVEZ-VOUS LA 
COLLECTION 


COMPLETE DE 
ST MAG ??? 


LE PACK DU SIECLE N°1 














Comprend : 


4 Reliures ou Coffrets + 
(n'oubliez pas de le préciser) 
la collection complète 
de ST MAG du N°3 au N°30 

(soit 28 numéros) 
bande de veinards, pour 
seulement 
650 EF (port compris) 





NOUVEAUTÉS DU MOIS 


DISPAC 20F 
Joueur de Cartes 75E 
Assembleur n° 2 75EF 





L'AVENTURIER FOU 


Chaque volume contient les 

fichiers de solutions de célèbres 

jeux d'aventures comme Guild of 
ieves ou King Quest. 


AVENTURIER FOU 1 
AVENTURIER FOU 2 
AVENTURIER FOU 3 
AVENTURIER FOU 4 75F 
AVENTURIER FOU 5 75F 


CALCUL CE ET CM 75F 
CHEZ LE MARCHAND 195F 
CONNAITRE LA FRANCE 145F 
GEOMONDE 95F 
ORTHOGRAPHE par le DESSIN 75F 
SOLFEGE 75F 


75F 
75F 
75F 


UTILITAIRES ” 
ACC. DE BUREAU VOL 1 75F 
ACC. DE BUREAU VOL 2 75F 





ACC. DE BUREAU VOL 3 75F 
ACCLOAD 75F 
ASTROLAB 145F 
ATHENA 295F 
AUTOMATE 75F 
CHECK DISK 100F 
CLUSFAT 95F 
GENIALOCIES 195F 
GESFAM II 195F 
GFA SHELL 75F 
GUTEMBERG 195F 
IBM-ST DISK 95F 
ICONES 75F 
IMPORT-PP 95F 
INITPATH 145F 
JOSHUA'S UTILITIES 75F 
L'ETUDIANT 195F 
MEGAKEY 145F 
PLOT IT 145F 
RAM DISQUES 75F { 
SUPER FORMATEUR 75F 
SUPER SELECTEUR 95F 


THE EXTENDER 
TOUCHES MORTES 
UTILE V2.00 








PROMOTIONS D'ÉTÉ 
SUR TOUT NOTRE STOCK 











Disque dur 44Mo amovible 


Disque dur 30Mo 
Emulateur PC SuperCharger L Emulation PC que an le Mon à Atardé 


La vitesse d'un XT à 12Mhz, un boîtier externe de 
oeensrs Se très belle qualité ne nécessitant aucune soudure 
Hypercache 16Mhz E Ga {connexion sur le port DMA sans monopolisation), 
Carte grand écran 19’ ‘E Ë 512Ko de RAM (extensible à 1Mo), supporte le 
Ecran ares Extension 520 STE à IMO coprocesseur 8087, émulation CGA, Hercules, livré 
Reset en facade, clavier RTS... 590,00 avec DOS 4.01, gère les disques durs Atari, le port 
Reprise de votre matériel Extension 520 STE à 2Mo parallèle à 100%, le qe série, la souris Atari. Indice 

Système modulable et évolutif 1690,00 orton 4.2... 


E 520 STF à 1M 
en o 2590 F is. 2890 F tre) 


Ces extensions sont montées par notre SAV 


Près de 100Mo pour 


ELLE IE ATARI MEGA ST4 
Disque dur Megafile 44 Ecran monochrome 


Disque dur 30Mo 
! Livré avec 2 cartouches CRE 44Mo Mobinente Bas tAtEn 


|: | Calamus, Le Rédacteur, 

Star LC 10 Mu Timeworks, formation 
lei none Maintenance sur site 

Epson LQ-500 EL e rs Assistance téléphonique 


PROMO !!! | 35000,00 frs" 





























. ERR à Service d'impression très 
éccement de l'année : haute résolution de vos 


1- Réparation sous 48H (Tarif normal) fichiers Calamus sur 
2- Réparation immédiate (rarif express) Linotronic 300.Demandez 
Finies les attentes interminables L. notre service flashage. 


SE 











Pour CALAMUS 
Générateur de drivers pour 
HP et DOT MATRIX 








1ère main des hd à L LE VIT 
machines révisées 200dpi, 6 niveaux de gris HYPERCACHE 


garanties 6 mois à 4990, O00frs 


des prix défiant toute Vous avez désormais la possibilité de doubler la 
concurrence 600Odbpi, 64 D.00 ra Le is vitesse de votre Atari pour très peu de frais. Un 
Appelez-nous 18200 68000 à 16Mhz et 8Ko de mémoire cache vous 

——— — apportent un gain de temps pouvant aller j jusqu'à 70% 

TE Suivant les applications. 100% compatible ST et Mega 


els nil sat era cl 
Modèle À 3000 7990,00 TIC RES CTAR PIERRE ST. Livré avec un manuel complet en français 


(possibilité de U PR IX notre service technique) 


| 
M a" 000 ES NOUVEAU PRIX 2450,00 


ns SRE OMAINE  PUBLI 


Réseau Hodaioe en démonstration permanente. Reprise aux meilleures LE NOUVEAU CATALOGUE 1990 
Connection entre PC, ST, UNIX... conditions de votre ST pour POUR ATARI EST ARRIVÉ 


ESS de HR OMBits/s, con Jcion sur le port || tout Aer ANR ST || us les DP de RFA USA, GB pour notre nouveau cru 
a e des ressources (disque dur. Envoyez-nous en timbres pour le recevoir 
CE e Pr êes #4 PROMOTION 30 frs la disquette, la 5ème gratuite !!! 






































parer entièrement réalisé avec calamus et flashé sur Inotronic - Prix succeptibles d'être modifiés sans préavis - Promotions non cumulables 























| 62, rue Gabriel Péri — 93200 Saint-Denis 
Métro Saint-Denis Basilique-Téléphone: 42.43.22 78 — Téléconie. 49 42 99 70 




















La course à l'émulation PC 
et à ses performances 
continue, voici qu'apparaît 
sur le marché français “AT 
Speed”, réalisé par les 
concepteurs de PC Speed, 
et annoncé pour la fin du 
mois de Juillet en disponi- 
bilité commerciale. Comme 
son nom l'indique, il est 
censé rejoindre les perfor- 
mances d’un PC AT, avec 
un indice Norton annoncé 
de 6.1, soit une rapidité 6 
fois supérieure à celle d'un 
PC XT cadencé à 4,77 
MHz. Il est compatible avec 
Windows 3, gère toujours 
les 704K du MS-DOS, et 
surtout il émule désormais 
les modes graphiques Her- 
cules, CGA, Olivetti et 
Tandy 1000. La carte fait la 
même taille (90x90mm), 
possède toujours son 
NecV30 à 8 MHz mais 
avec un petit nouveau, le 
80286 qui est, lui aussi, 


AT SPEED 


cadencé à 8 MHz. Par 
contre, il est destiné à être 
installé sur le bus d'exten- 
sion du 68000, ce qui signi- 
fie qu'il ne pourra fonction- 
ner que sur les Mega ST. 
Sinon, il faut signaler que 
son logiciel de lancement 
fonctionnera comme un 
accessoire de bureau sur 
ST, ce qui permettra de 
passer d’un mode à l’autre, 
soit de ST à PC puis reve- 
nir au ST en retrouvant la 
configuration telle qu'on 
l'avait laissée sous ST. AT 
Speed émule aussi les 
souris Atari et Microsoft, 
gère à 100% le port paral- 
lèle, est compatible avec le 
Blitter, et devrait coûter un 
tout petit peu moins de 
3000 F. Voilà, vous en 
savez autant que nous, 
rendez-vous sans doute en 
Septembre pour un essai 
complet de la “chose”. 


A.L.M. TOUJOURS 





Décidément, il se passe 
beaucoup de choses grâce 
à l'intérêt que porte cette 
société à l'Allemagne et à 
son marché sur ST. Deux 
événements de taille pola- 
riseront sans doute l’atten- 
tion à la rentrée, à savoir 
l'import en France de la 
carte d'acquisition vidéo 
“Chili”, de chez Marvin AG, 
et du logiciel de retouche 
d'images “ReproStudio”, 
deux produits dont nous 
vous avions déjà dit deux 
mots dans notre compte- 
rendu du CeBit d'Hanovre 
en Mars dernier. La carte 
Chili possède la particulari- 
té d’être à la fois un digita- 
liseur, un genlock, une 
carte graphique, un géné- 
rateur d'effets vidéo et de 
titrage, et un correcteur 
d'images (dessin et cou- 
leurs). Elle permet d’obte- 


nir 256 couleurs parmi 
65.536, propose pas moins 
de 6 modes de résolution 
écran mais se branche sur 
le bus d'extension du 
68000 donc ne fonctionne 
que sur les Mega ST. Voilà 
pour les caractéristiques 
générales, et signalons 
tout de même qu'il s’agit 
de la première vraie solu- 
tion en matière d'acquisi- 
tion vidéo temps réel pour 
les ST. Nous y reviendrons 
évidemment en détail dès 
que le produit sera dispo- 
nible. 

ReproStudio est quant à lui 
un logiciel de retouche 
d'images, encore actuelle- 
ment en phase de franci- 
sation et de finalisation, 
mais devrait être dispo- 
nible début Septembre en 
version Junior, puis 
quelques temps plus tard 







en version Pro. Signalons 
là aussi, comme tous les 
produits de cette même 
famille, qu'il tire sa pleine 
puissance de la présence 
d'une carte graphique 
(pour plus de couleurs - 
256 simultanément- et de 
résolution écran) et qu'il 
est un des rares logiciels 
développés sur ST à être 
compatible avec la carte 
Matrix bientôt distribuée 
par Human Technologies 
(voir quelque part dans ces 
pages de news...). La ver- 
sion junior devrait coûter 
aux alentours de 1500 F, et 
aucun prix n'est encore 
avancé pour la version 
Pro. C'est sans doute le 


logiciel de retouche qui 
dispose du plus grand 
nombre de fonctions gra- 
phiques et d'outils de des- 
sin, avec les courbes de 
Bézier notamment, et une 
interface facile d'accès 
avec un grand nombre de 
fonctions de retouche sur 
les couleurs, le masquagde, 
l'estompage, le lissage, le 
réglage du constraste et 
de la luminosité. Bref, 
beaucoup d'activité chez 
ALM pour la rentrée... 
Signalons d'ailleurs, après 
vos nombreux coups de 
téléphone, qu'ils ont chan- 
gé de numéro de télépho- 
ne, et voici le nouveau : 
42.43.86.95. 





HUMAN TECHNOLOGIES 


Disponibles dès ce mois de 
juillet, voici deux gammes 
de cartes haute résolution 
couleur, déjà évoquées 
dans le compte-rendu du 
salon de Hanovre : tout 
d’abord des cartes 
640x400 en 256 couleurs, 
800x600 en 256 couleurs 
jusqu'aux cartes 1280x960 
en 16 couleurs. La palette 
s'étend sur 262.144 cou- 
leurs soit 64 nuances par 
couleur de base (rouge, 
vert, bleu). Ces cartes sont 
particulièrement destinées 
aux écrans multisyn- 
chrones 14 et 16 pouces 
de type EIlZO, NEC ou 
équivalents. On trouve 
ensuite les cartes pour 
moniteurs 19, 20 ou 21 
pouces avec des résolu- 
tions de 1280x1024 en 16 
couleurs et de 1280x1024 
en 256 couleurs parmi 16 
millions. Toutes ces cartes 
étant disponibles seules ou 
avec écran, les prix s'éta- 
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lent de 6900 F HT. à plus 
de 40000 F HT, en fonction 
de la résolution et de la 
taille de l'écran choisies. 
Essais complets dans le 
prochain numéro.Ensuite, 
ils nous ont développé un 
commutateur électronique 
d'imprimante, proposé au 
tarif de 1990 F HT, permet- 
tant de partager une impri- 
mante laser SLM804 entre 
deux unités centrales, sans 
perturber le bus DMA ni les 
disques durs connectés. Le 
boîtier permet de commu- 
ter, à la volée et sans pré- 
cautions particulières, 
l'imprimante laser associée 
vers l’un ou l'autre des 
postes sans avoir à réinitia- 
liser l’un quelconque des 
éléments de la chaîne ainsi 
formée. Les deux postes 
ne doivent cependant pas 
être éloignés de plus de 6 
mètres pour un fonctionne- 
ment totalement fiable. 





IPB (0) DU RON DE) 


Le CAP 23 est un modem 
mis au point par la société 
ExtraDOS. Son but, étant 
conforme à l’avis V23 du 
CCITT, est de venir rempla- 
cer votre Minitel qui est, 
comme chacun sait, cher, 
encombrant et laid. En fait, 
on ne voit pas trop quel 
autre usage on pourrait en 
faire, étant donné que la 
norme V23 n'est utilisée 
qu'en France. Ainsi, si vous 
utilisez régulièrement des 
émulateurs pour ne pas 
avoir à supporter l'écran et 
le clavier du Minitel, ou si 
VOUS VOUS servez de ce der- 
nier uniquement pour son 
modem (si vous possédez 
un RTC, par exemple), le 
CAP 23 serait susceptible 
de vous intéresser. Dans 
ces deux cas de figure, il 
est en effet inutile de 
s’encombrer du Minitel lui- 
même : un modem peut très 
bien le remplacer.Le CAP 
23 se présente sous la 
forme d'une cartouche, à 
insérer dans le port adéquat 
de votre ST. Voilà une idée 
originale, qui permet proba- 
blement de réduire sensi- 
blement les coûts de fabri- 
cation ; cela se ressent sur 
le prix de vente du CAP 23, 
qui est nettement inférieur à 
celui des modems V23 
externes classiques. Notez 
cependant que cela fait du 
CAP 23 un périphérique 
exclusivement réservé au 
ST : inutile d'espérer vous 
en Servir si vous passez un 
jour sur Mac (ou sur NeXT, 
PC, Sun, ce que vous vou- 
lez). Une fois votre modem- 
cartouche dûment inséré, il 
VOUS faut placer dans votre 
dossier AUTO un petit pro- 
gramme qui va: détourner 
vers la cartouche les 
entrées/sorties normale- 
ment destinées au port 
Série. Pour ceux que cela 
intéresse, les fonctions 
BIOS détournées sont Bco- 
nout et Bconin (les poin- 





teurs sur les routines char- 
gées du port série sont 
dans les variables systè- 
me), et une petite routine 
est insérée dans le Timer A, 
afin de prévenir le système 
de l’arrivée d'un caractère 
Sur le port cartouche deve- 
nu série, si besoin est. Une 
fois le programme AUTO 
installé, et le ST rebooté, 
tous les logiciels que vous 
lancerez seront persuadés 
qu'ils se servent du port 
série, à moins qu'ils n'utili- 
sent eux aussi le Timer A, 
auquel cas quelques pro- 
blèmes de cohabitation 
peuvent peut-être se poser. 
D'autre part, un accessoire 
permet à tout moment de 
remettre en place la RS232 
standard, par exemple si 
vous avez un autre modem 
branché dessus (ce qui est 
mon cas).Le modem a été 
essayé avec divers logiciels 
de communication, qui se 
sont tous laissés berner 
Sans aucun problème. ZZ- 
Comm émule comme 
d'habitude, Kermit transfère 
des fichiers sans broncher, 
et Uniterm supporte tou- 
jours aussi mal le Vidéotex. 
Le CAP 23 dispose, de 
plus, de quelques facilités 
intéressantes pour les 
sysops de RTC : il est 
notamment parfaitement 
conforme à la norme mise 
en place par le Minitel 2 
concernant la détection de 
Sonnerie. En d’autres 
termes, si quelqu'un vous 
appelle, vous recevrez les 
caractères SEP $6C (SEP 
108 en décimal) : plus 
besoin de détecteur de son- 
nerie ! Enfin, le CAP 23 est 
retournable en cours de 
connexion, ce qui n'est pas 
le cas de tous les Minitels 
(les vieux M1 qui ont fait la 
guerre ne possèdent pas 
cette possibilité). Le CAP 23 
est donc un périphérique 
intéressant et bon marché 
(le prix public unitaire prévu 


Vitesse & Stockage 
TT: 1e 


Q MEcADRIVE 50SII 


A 44Mo/SCSI. 

À Amovible/Capacitélnfinie. 

A Vitesse 19 ms (Seconde Génération). 
A 1 Cartouche Syquest'M GRATUITE, 

A Multiple Compatibilité: 

Macintosh, Atari Amiga, IBM, 

Akai $:1100/S-1100/$-950/S-770IE-Mu … 


BE TS#0" 


mn 


CEE) 


Disques Durs SCSI 180 & 380Mo/ 12ms 


D MEGADRIVE 180/380 


A Deux Versions : 180 & 380Mo. 
|: A Temps d'Accès 12 ms. 
: A interacésCsl. 


7990F 180mo 
9990F_ 380mo. 


Cartouches Megadrive 501 M 
Cartouches Megaflie 441" 


| A Cartouches 44Mo Garanties Origine Syquestn. 


1 790F 
990F 


| Q CONVERTER 
A Interface DMAISCSI avec Double Port DMAISCSI: 
A Compatible Aladin/Spectre/PC-Ditto/Macintosh/IBM M)" à 
A Livrée avec Soft Editeur/Auto-Formatteur/Test/Auto-Boot.. à 
À Fonctionne avec Plus de 100 Disques & Streamers SCSI. 
__| à Edition jusqu'à 14 A 10Mb/Sec: 


LE 











Q Je souhaite recevoir une document ta tion 
IQ Je souhaite vous commander 

0 Chèque 

BINOM 

(Q' ADRESSE 

a CODE 

QIULLE 








ISITAL 
CONCEPT 
IUT SAT [ TIEIREAS 











..LES NEWS.../... 





est de 810 F TTC), mais qui 
pourrait avoir du mal à trou- 
ver sa clientèle. En effet, en 
prenant les concepteurs à 
contre-pied, on pourrait dire 
qu'un Minitel fait tout ce que 
propose le CAP 23, et ce 
pour 20 francs par mois. 
L'idée reste cependant 
excellente, et nous atten- 
dons avec impatience le 
modem CAP 225 annoncé 
par ExtraDOS, qui devrait 
être aussi peu cher que le 
CAP 23 par rapport à ses 
concurrents de conception 
plus classique. La version 


de base sera conforme aux 
avis V21, V22, V22bis et 
V23 du CCITT, et une ver- 
sion plus évoluée intègrera 
les protocoles MNP 4 et 
\/42 de correction d'erreurs, 
ainsi que les MNP 5 et 
V42bis de compression de 
données. Un vrai modem 
de luxe ! Les CAP 23 et 
CAP 225 devraient tous 
deux être disponibles à la 
vente courant Septembre. 
Donc, rendez-vous à la ren- 
trée pour un test exhaustif 
de ces produits, avec pho- 
tos en abondance. 


CLAVIUS 


Quelques petites news de 
chez Clavius, l’importateur 
français du Spectre GCR... 
Tout d’abord, signalons 
l'existence d'une version 
couleur (la 2.65C), qui per- 
met d'utiliser un moniteur 
couleur en émulation Mac, 
mais il semble qu'elle doive 
encore connaître quelques 
améliorations, le codage 
couleur n'étant pas parfait. 
De plus, une telle option 
est très gourmande en 
mémoire vive, il faudra cal- 
culer ça en fonction de 
votre poste de travail. Dave 
Small travaille toujours sur 
la version 3.0 de GCR, 
dont on ne sait encore rien 
à ce jour, sauf qu'elle sera 
multilingue. Mais gageons 
que ce génie saura bien 
déclencher un certain 
nombre d’autres sur- 
prises. Il travaille aussi 





Nous testions dans notre 
avant-dernier numéro (le 
41) le logiciel musical ProS- 
core, dédié à l'édition de 
partition sur ST. Mais deux 
inexactitudes s'étaient glis- 
sées dans notre texte : tout 
d'abord, il n’est pas édité 
par Midigam mais par “Digi- 
gram” (légère homonymie 
qui a provoqué notre erreur 


toujours sur la carte 68030 
pour ST, qu'il n'est pas 
encore sûr de montrer à 
Düsseldorf à la fin Août, 
mais par contre, il est sûr 
de pouvoir y montrer la 
carte “MégaTalk”, servant à 
se connecter sur le fameux 
AppleTalk. Rien que pour 
ça, on ira de toutes 
façons. L'autre nouveauté 
concernant Spectre, c'est 
la possibilité d’avoir, sous 
mode Mac, l'icône “PC 
Ditto” si vous disposez de 
cet émulateur PC. J’ai bien 
dit “c'est possible”, ce qui 
signifie que Clavius attend 
vos courriers disant à cor 
et à cri que vous avez 
absolument besoin de cette 
option |! À l’aide de ces 
déclarations d'intention, 
Clavius pourra prouver à 
nos chers “constructeurs” 
qu'il y a un réel besoin. 


- espérons que les auteurs 
ne nous en veulent pas trop 
l). Le distributeur, quant à 
lui, est bien toujours la mai- 
son Comus France. D'autre 
part, le prix du logiciel est 
quelque peu supérieur à 
1500 F, puisqu'il coûte très 
exactement 1890 F prix 
public TTC. 
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(à ne pas confondre avec 
les français “DCl”...). Ces 
sympathiques américains 
nous ont concocté une nou- 
velle mouture de leurs utili- 
taires pour disques durs 
absolument époustouflante. 
Tout d’abord, le formateur a 
été entièrement remanié 
pour simplifier encore son 
utilisation. Ensuite, il a été 
rajouté un programme de 
mesures de performances 
de disques durs, permettant 
de vous assurer de la 
bonne vitesse de transfert. 
Il est à noter que les résul- 
tats obtenus sont supé- 
rieurs de 25 % aux résultats 
annoncés par les consiruc- 
teurs. Cela tient principale- 
ment à deux raisons : d'une 
part, l'optimisme générale- 
ment constaté chez les 
fabricants de disques durs 
quant aux performances de 
leur production, d'autre part 
à la méthode de calcul utili- 
sée, plus proche d'une 
utilisation courante. Ensuite, 
il y a une nouvelle version 
(v4.8.1) du driver, la pièce 
maîtresse, aux perfor- 
mances proprement épous- 
touflantes : elle intègre la 
gestion de mémoire cache 
de taille paramétrable, de 
buffers en lecture et écritu- 
re, une vérification 
débrayable des écritures 
disques, une mémoire 
cache paramétrable sur les 
FAT et les directories des 
disques et la coorection du 
bug dit “des 40 dossiers”, 
bug qui consiste à planter 
méchamment et souvent 


irrémédiablement une parti- 
tion quand on y crée plus 
de 40 dossiers. Il est à 
noter que ce bug a été cor- 
rigé dans le TOS1.4 (pour 
lequel il n'y a toujours pas 
de décision de commerciali- 
sation avancée). 

Pour récupérer toutes ces 
nouvelles versions, deux 
solutions : soit appeler votre 
distributeur qui est tenu de 
vous les fournir, soit les 
télécharger directement sur 
le serveur monovoie ICD 
directement aux USA. Il suf- 
fit de se munir d'un modem 
symétrique 1200, 2400 ou 
même 9600 bauds et de 
composer le 19-1 815 968 
2229. Au moyen d'un soft 
de télécoms de type FLASH 
ou INTERCOM_PC, il suffit 
alors de récupérer les 
fichiers en question. À noter 
que sur ce serveur, on trou- 
ve des tas d'autres fichiers 
ou programmes ayant rap- 
port aux disques durs, des 
programmes de compres- 
sion-décompression 
récents, et que le téléchar- 
gement est bidirectionnel : 
on peut bien sûr récupérer 
des fichiers mais on peut 
aussi en déposer sur le ser- 
veur si l’on pense qu'ils 
peuvent intéresser d'autres 
utilisateurs. une initiative 
intéressante que devraient 
suivre les fournisseurs 
européens pour la mise à 
jour et le suivi de leurs pro- 
duits. Coût de la communi- 
cation : une dizaine de 
francs la minute, mais ça en 
vaut vraiment la peine! 


me D ROUE Ai 


La manifestation de la ren- 
trée se confirme donc plus 
que jamais, et se déroulera 
du 18 au 21 octobre au 
CNIT-La Défense à Paris. 
5000 m2 ont été réservés 
à cet effet, et l’organisation 
générale prévoit deux 
grands espaces : l'un pour 
le grand public et les appli- 
cations ludiques, créatives 
et familiales en général, 
l’autre pour les applications 
pro. Mais certains expo- 
sants se retrouveront évi- 
demment dans les deux 
catégories, et l'originalité 
des présentations tient à la 
mise en place “d’Ateliers 
thématiques en libre 
accès”. Ce qui signifie en 
clair que tout sera fait pour 
permettre au public de 
“toucher”, de cliquer et 
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d'être en rapport “physi- 
quement” avec la machine 
et les logiciels. Un cycle de 
conférences diverses sera 
aussi mis en place, avec 
des sujets généraux tels la 
PAO, le graphisme, la 
musique, etc. Sur ce der- 
nier sujet, une conférence 
spécifique sera sans doute 
organisée avec Jean- 
Michel JARRE du fait de 
son option technique et 
politique sur des systèmes 
ST pour son travail musi- 
cal. A l’occasion de ce 
Forum, aussi, il y aura 
peut-être du nouveau sur 
le CD-Rom (tiens, un reve- 
nant !), et le lancement du 
TT semble se confirmer. 
Mais prions, mes frères, 
car ce n'est pas encore 
officiel... 


JURIMEGA 2.0 








Dans notre numéro 18 (ouf, 
ça fait déjà un paquet de 
temps, Ça...), nous avions 
déjà eu l’occasion de vous 
entretenir de ce logiciel 
dédié aux Avocats, qu'il 
soulage de leurs préoccu- 
pations comptables et de 
leurs avatars de trésorerie. 
En effet, ce produit, qui 
permet de générer une 
comptabilité du type borde- 
eaux trimestriels ou 
Comptavocat, part de l’idée 
géniale qu'il n’est pas 
impérativement nécessaire 
de connaître la comptabili- 
té pour savoir où fuit le 
temps et ce qu’il coûte 
(puisque le temps, c’est de 
l'argent, non ?). Le principe 
consiste à relier des tarifs, 
totalement adaptables aux 
besoins très personnels de 
Chaque Avocat, avec le 
temps passé pour tel ou tel 
type de prestation, et avec 
le dossier individuel de 
chaque client pour, in fine, 
triturer tout pour l'exporter 
Sous la forme d'une vraie 










compta. Explication : à 
600 francs de l'heure, plai- 
doirie au palais, pour 
Duschpountz dans le cadre 
de son litige, paiement d'un 
huissier pour notifier l'assi- 
gnation, à l’aide d’un 
chèque émis sur le crédit 
plouc se transforme en un 
beau crédit/ débit du 512 
par le 400. Non seulement 
le produit gère la compta, 
mais il isole une véritable 
compta client et permet de 
faire des statistiques, d'édi- 
ter automatiquement des 
lettres de relance délicieu- 
sement judiciaires, et d'évi- 
ter que des honoraires 
non-perçus occasionnent 
de difficiles fins de mois. 

Au plan de la technique 
informatique, le progiciel 
vertical a été construit 
autour de DBMan dernière 
version et reste un modèle 
de ce que l’on peut faire 
avec ce produit dont les 
bogues éventuels ont été 
contournés d’après les 
auteurs. La version 2.00 
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est bien sûr mieux écrite, 
améliorée en ergonomie 
bien que l'impossibilité de 
choisir ce que l’on cherche 
parmi une liste soit toujours 
là, et il est indispensable 
de disposer d'une machine 
à l'heure et à la date idoi- 
ne. Les auteurs ont intelli- 
gemment trouvé le point 
d'équilibre entre l'apport de 
nouvelles fonctionnalités 
(comme l'édition de la 


DAS?) et l'amélioration des 
mécanismes d'origine. 
Avec certains logiciels 
médicaux bien connus, 
JURIMEGA se positionne 
dans le peloton de tête des 
logiciels sur ST, le seul 
regret est qu'il ne soit pas 
sous GEM, mais les 
juristes ont l'habitude de 
l'austérité et il y en a, juste 
là où il faut. 





SALON DE LA MUSIQUE 


Ce sera l'événement de la 
rentrée, avec des dates 
désormais définitives : du 
12 au 18 Septembre pro- 
chain, avec 3 journées pro- 
fessionnelles les 16, 17 et 
18. ST Mag y sera présent 
comme chaque année, 
avec le prochain “Spécial 
Musique”, qui sortira en 
kiosque juste avant. Tout 
cela se passera comme 
d'habitude à la Grande 





Notre confrère néerlandais 
ST-Nieuws (à vos souhaits) 
annonçait il y a peu qu'Atari 
Benelux a présenté le TT à 
la presse à la fin du mois 
de juin. Ceci leur a permis 
d'annoncer deux change- 
ments importants dans les 
caractéristiques de cette 
machine, qui a tout de 
même déjà été montrée à 
Düsseldorf il y a 10 mois, et 
qui est encore loin d'être 
disponible. Le premier de 
ces changements a trait à 
la fréquence du 68030 qui 
est au coeur de la machine, 
puisqu'il sera désormais 
cadencé à 32 MHz au lieu 
des 16 longtemps cités. De 
quoi donner du punch à la 
machine ! L'autre change- 
ment se situe du côté des 
mémoires de masse, 
puisque le disque dur pro- 
posé dans la version de 


TT : Tan'Tattendu. 


Halle de la Villette (Porte 
de Pantin à Paris), et cette 
année devrait voir l’'avène- 
ment de la fameuse “nou- 
velle formule” : nouveaux 
repérages, nouveaux 
espaces de regroupement 
thématiques, animations 
spécifiques, “nocturne” au 
cours des journées Pro, 
concerts répartis sur 


l'ensemble du Salon, etc. 
Bref, on vous y attend !... 






base (qui inclut, je vous le 
rappelle, outre la machine 
équipée de 2 Mo de RAM 
et de son disque dur, un 
moniteur couleur haute 
résolution), passe à 40 Mo, 
et profitera d'un temps d'ac- 
cès moyen de 28 ms, ce 
qui est tout de même large- 
ment mieux que ce à quoi 
on avait été accoutumé de 
la part d'Atari. Le prix de la 
configuration reste toujours 
au même niveau, c'est-à- 
dire aux alentours de 
25000 francs TTC. Le seul 
problème, comme je l'ai dit 
plus haut, c'est qu'on igno- 
re encore et toujours 
QUAND. Voyez la “news” 
sur le Forum Atari à ce 
sujet, puisque ce serait la 
date la plus indiquée pour 
une telle sortie dans notre 
beau — mais souvent 
délaissé — pays. 


Ce sont les initiales de 
“Tactile Interactive Media”, 
une nouvelle borne interac- 
tive construite autour d'un 
système ST, dont nous 
avons vu un exemplaire 
tout récemment. Dévelop- 
pée par la société Mosaïc 
(“les bâtisseurs d'images 
interactives”) basée à 
Sophia Antipolis dans 
l'arrière-pays niçois, et dis- 
tribuée par la société Futu- 
reVision (186 rue du Fau- 
bourg St Martin, Paris 
10ème), cette borne pré- 
sente plusieurs originalités. 
Tout d'abord, elle gère une 
unité centrale ST, un 
disque dur Megañile 30, un 
Genlock SATV pour les 
incrustations vidéo, et sur- 
tout. un vidéodisque, en 
l'occurence de marque Phi- 
lips. Toute cette configura- 
tion est évidemment amé- 
nageable en fonction des 
besoins du client (mémoire, 
type de vidéodisque, etc.) 
mais l’atout majeur du sys- 
tème est d'être livré avec 
un générateur d’applica- 
tions, développé sur ST, 
qui permet au client -ou au 
prestataire de service- de 
programmer lui-même 
l'applicatif de sa borne, en 
gérant son arborescence, 
le type de séquences 
(vidéo, images fixes, 
images ordinateur), la 
langue (français, anglais, 
allemand, italien) et la pré- 
sentation générale de 
l'écran, notamment le 
mode “standby” (veille et 
“réveil”). TIM dispose d’un 
écran tactile très perfor- 
mant, puisque ce dernier 
permet d'isoler les surfaces 
sensibles pratiquement au 
pixel près (sur écran basse 
résolution soit 320x200), et 
nous avons pu découvrir 
un applicatif complet très 
bien présenté, relatif à la 
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base d'informations de 
Sophia Antipolis (congrès, 
manifestations, etc.). Pré- 
senté sous forme de “Livre 
d'Or’, avec des pages des- 
sinées à l'écran et compor- 
tant un coin retourné, le 
plus spectaculaire était évi- 
demment de “tourner les 
pages” avec un doigt, en 
respectant le mouvement 
habituel que l’on a pour 
tourner les pages d'un vrai 
livre. Remarquable, cet 
effet était accompagné 
d'une gestion de la gravité 
et de l’inertie lorsqu'on 
“rate” son mouvement... et 
que la page “retombe” | 
Cette structure “Livre d'Or” 
est fournie avec le généra- 
teur d'applications, qui est 
lui-même limpide. Présenté 
en couleur, il se présente 
sous la forme de choix suc- 
cessifs en cliquant dans les 
cases appropriées, et le 
script généré reste modi- 
fiable à tout moment. Le 
driver de vidéodisque fonc- 
tionne parfaitement, et per- 
met d’aller spécifier les 
images ou les séquences 
d'images en précisant leurs 
numéros. Au point de vue 
sécurité (en cas de micro- 
coupures, ou de plantage 
inopiné), TIM dispose 
d’une séquence de lance- 
ment automatique pour 
assurer la reprise sans 
intervention humaine. Exté- 
rieurement, la borne dispo: 
se d’un design intéressant 
et il est certain que ce type 
de développement Ve 
connaître une grande diffu 
sion dans les années à 
venir, ne serait-ce que 
dans les lieux publics. Er 
tous cas, ça marche ave 
un ST et avec de la vidéo 
quant au prix, il est évi 
demment fonction de |: 
configuration choisie. 
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Le fameux réseau de BioData, 
importé en France par ALM, ne 
cesse d'évoluer et désormais, il pré- 
sente une interface X-Windows pou- 
vant tourner sur ST. Auparavant, le 
ST intégré dans ce réseau pouvait 
toujours accéder au monde Unix en 
matière de transferts divers, grâce 
au mode VT52, mais maintenant il 
pourra même, à condition de dispo- 
ser de 2 mégas de mémoire vive, se 
transformer en terminal X-Windows |! 
D'autre part, à la demande des utili- 
sateurs, le réseau Bionet va pouvoir 
fonctionner avec un serveur ST uni- 
quement, et “alimentera” un réseau 
limité à 8 ou 4 postes. Par contre, ce 
serveur pourra fonctionner en tâche 
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Egalement sur catalogue : 
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de fond. Cette version-là sera termi- 
née pour la fin Juillet, et sinon, dans 
les “grands desseins”, l'objectif 
“Mac” est plus que jamais à l’ordre 
du jour, avec peut-être une présenta- 
tion à l’Atari Show de Düsseldorf à la 
fin du mois d'Août prochain. 





Gadgets by Small, Inc, Colorado USA 


[| SPECTRE GCR | 


Ecrit et lit Mac directement sans transfert ! 
7" AT CITECLEMENT Sans transfert : 














Tourne avec ROMS 128 K, sur STF, STE et STacy — L'écran est 30 % plus large 
Copie d'un fichier de 500 K sur disque dur passe de 2mn 26 à 8 secondes chrono 

Le Floppy (A ou B) écrit 8 fois plus vite — Rafraichissement écran 400 % plus rapide 
Vitesse globale du micro émulé 20 % plus rapide qu'un Mac. 

Laser SLM 804 sous Postcript/Ultrascript, Quickdraw. Matricielles reconnues 
Version 2.65 c dispo. Nous renvoyer votre disquette originale 


La carte MegaTalk (Apple Talk + port SCSI 


pour Mega ST 1, 2, 4) devrait atteindre les 
côtes de France vers la fin août 90. 





Avec ROMS 128 K ° 


N.C. 
DV1 Scope : Backup de disque dur sur toute entrée/sortie vidéo de 


Magnétoscope VHS ou autre. 360 M° sur une T 120 1290 F+ port 30 F 
*%* ST 4096C *# 


La palette des 4096 couleurs du 520 STE dans tout ST et Mega ST! 690F 


MEGA°TOUCH - Mettez du ressort dans votre ST !… 


95 ressorts placer (facilement !) sous les touches de votre clavier pour 
une sensation Mega ST : 140 F + port 20 F 


°°°000.0.0e KEY-MARKS ..eoceecese 


Réglettes s'installant devant les touches de fonction du ST dans lesquelles, grace 
à un logiciel d'impression fourni, vous afficherez leurs significations selon 


l'application utilisée : 160 F + port 20 F 

















Tous ces produits sont disponibles 
chez votre revendeur ou chez 





CONTROL RESET A PARIS. - 

Y PARIS 8 : 38, ruë de. Furin - Tét’ (1) 4932 51 00 
V PARIS 12 : 60, cours de Vincennes - Tél. (1) 43 40 80 80 
Y PARIS 15 : 44, rue de Cronstadt - Tél, (1) 48 42 55 10 
ET 22 AUTRES BOUTIQUES EN FRANCE 


CLAVIUS et l'émulation 
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Avant-Garde Systems, Floride USA 


__ pe-ditto IT | 


Un produit hardware meilleur qu'un XT Turbo à 10 Mhz 


Indice Norton SI de plus de 4.0. Accès à une librairie de plus de 15000 
logiciels même protégés. PC Ditto IL est le seul émulateur qui vous donne 
vraiment l'EGA, EMS, MIDI, les liaisons série jusqu'à 19200 bauds et l'impres- 
sion Laser sur SLM 804. 

De hautes performances ne peuvent être obtenues que si le port DMA de 
votre ST reste libre de toute contrainte en dehors de son rôle propre. Installation 
par simple "clipage" dans votre ST (manuel en français). Pas de boitier annexe 
qui encombre votre bureau. Emulation souris série MicroSoft (tm). 

Complètement transparent : continuez d'utiliser GCR, GEM, et autre. 

Ilsuffira d'une simple mise à jour de la disquette programme pour redéployer 


sa force et ses nouvelles possibilités. 
Offrez-vous la puissance 2 6 90F 
Installé 


au plus juste prix. 
en 
(CRIME - Boitier métallique (à l'abri des rayonnements) pour 


tout disque dur à la norme SCSI comprenant carte interface DMA/ 
SCSI, alimentation, roue codeuse, câbles de raccordements et soft de 




















* gestion disque dur (jusqu'à 255 partitions et plus de 100 M°!) 


Prêt à l'emploi : 1 990 F + port 90 F 





IMG Scan : le célèbre scanner fibre optique se fixant sur tête 
d'imprimante — Nouveau prix — 990 F complet + port 30 F. 


CLAVIUS sera fermé du 15 Août au 2 Septembre 
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La souris fournie avec les 


ST ne restera pas dans les 
annales de la micro comme 
un record de qualité, de 
fiabilité, d’esthétisme et 
d'adéquation aux 
environnements souvent 
difficiles que peuvent 
rencontrer ces petits 
animaux. Voici que d'un 
seul coup, trois 
concurrentes tentent de 
s'imposer, avec chacune 
des avantages (ou 
inconvénients) différents. 


LOGIMOUSE 


La Logimouse de Logitech est pro- 
bablement la souris la plus “design” 
du lot (je ne vais pas vous la décri- 
re, regardez plutôt la photo). Sa 
forme de tranche de demi-tube 
(NDLR : non, non, il ne la décrit pas) 
surprend assez au début, et la posi- 
tion des boutons vous interdit de 
laisser votre main affalée dessus, 
comme vous le faites avec la souris 
du ST. Mais une fois que vous avez 
pris l'habitude de la tenir du bout 
des doigts, elle se révèle très large- 
ment supérieure au bout de plas- 
tique gris qui vous sert actuellement 
de souris: elle est légère, les bou- 


tons sont larges et montés sur des 
ressorts très agréables, et le câble 
de liaison est nettement plus long 
que celui de la souris ST standard. 


Cette souris est de plus livrée avec 
un accessoire de bureau, qui vous 
permet de régler la vitesse de dépla- 
cement du pointeur, si jamais vous 
trouvez qu'il se traîne vraiment. Cet 
accessoire n’est pas le meilleur 
accélérateur de souris qu'il m'ait été 
donné de voir, car i! n'accélère pas 
le pointeur proportionnellement au 
déplacement de la souris, mais il est 
tout de même de bonne qualité. 


Si jamais vous en avez assez de 
votre souris, si vous voulez la rem- 


‘placer par un périphérique un peu 


plus beau et un peu plus agréable à 
utiliser, et si vous n'êtes pas prêt à 
investir dans la Golden Image, la 
Logimouse est probablement le 
meilleur choix. 








SOURIS : 
DU NOUVEAU 










CONTRIVER MOUSE 


Cette souris étant la moins chère 
des trois, elle convient parfaitement 
comme solution de remplacement 
en cas de perte, panne ou vol de 
votre souris ST. Dans ces trois cas, 
vous aurez en effet plutôt tendance 
à essayer de minimiser le plus pos- 
sible les frais de remplacement, et 
n'irez pas chercher les souris les 
plus luxueuses du marché. 


La Contriver Mouse est d’un esthé- 
tisme assez douteux, à moins que 
vous n'appréciez les tons de beige 
brunâtres, et les boutons, non 
contents d’être assez bizarrement 
placés, sont extrêmement durs 
(encore plus que ceux de votre sou- 
ris habituelle). Mais sa forme esi 
agréable et rappelle vaguement 
celle de la souris ST, bien qu'elle 
soit un peu plus petite, alors que le 
Logimouse et la Golden Image son 
radicalement différentes. 





Elle est livrée avec un support vous 
permettant de l’accrocher sur le côté 
de votre moniteur (l'adhésif man- 
quait à l'appel, mais c'est un détail, 
c'est pour ça que je le met entre 
parenthèses), ainsi qu'avec un joli 
tapis de souris assorti à la teinte 
inoubliable de votre ST. Enfin, 
contrairement à la Logimouse, la 
Contriver n’est pas fournie avec une 
démo du jeu Pipe Mania, ce qui 
méritait d’être précisé. 


GOLDEN IMAGE 


Telle est la marque de la troisième 
Souris dont nous débattrons ce jour, 
et qui a l’illustre honneur d'être 
importée et distribuée par Incoma. 
Cet animal de la classe des périphé- 
riques (perifericus ordinarus), et de 
lespèce de ceux d'entrée (intra 
data), appartient à la race des sou- 
ris dites optiques (opticus sorix), 
c'est d’ailleurs ce point qui la dis- 
tingue des autres souris. 


“Optique” n'est pas ici applicable à la 
transmission entre la souris elle- 
même et l'ordinateur, comme c'est le 
cas de la BMC, que nous avons tes- 
tée il y a quelques mois. “Optique” 
est donc ici lié à la méthode de repé- 
rage des déplacements de cet objet 
Si utile en ces temps voués aux 
interfaces graphiques, qui se fait à 
l'aide de ce qui ressemble à deux 
LEDs et une loupe sur la partie infé- 
fieure de la souris, et d'une trame 
Portée par le tapis de souris fourni. 





Le tapis en question est, lui aussi, 
totalement différent des autres usten- 
siles portant le même nom et ayant le 
même usage (je vous le rappelle, 
accueillir la souris, et en faciliter le 
déplacement). En fait, on trouve la 
classique surface de mousse, réduite 
à sa plus simple épaisseur (il y a 
quand même deux millimètres), dont 
le but est d'assurer l’adhérence vis-à- 
vis de la surface sur laquelle est sau- 
vagement jeté ce tapis. Mais, au des- 
sus de cette mousse, on trouve une 
surface plastico-cartonnée (ou car- 
tonno-plastiquée ? Ça fait un peu ter- 
roriste….) qui porte, comme je vous 
l’ai dit, une jolie trame formée de 
points blancs sur fond gris, 
l'ensemble ayant finalement une cou- 
leur proche de celle des ST. 








Evidemment, on ne peut que s’inter- 
roger sur le fonctionnement de ce 
genre de souris. Visiblement, la 
trame qui orne le tapis de souris doit 
avoir quelque usage permettant à la 
Souris de repérer ses déplacements, 
tout en assurant le parfait glissement 
de ce périphérique indispensable, 
que vous pousserez de vos petites 
mimines dans la direction souhaitée. 
Petites mimines, soit dit en passant, 
qui pousseront les boutons qui en 
forment la proue. lis sont au nombre 
de trois, ce qui est pour le moins 
inhabituel sur ST, mais seuls deux 
d'entre eux sont utilisés, celui du 
milieu étant lâchement abandonné 
car destiné aux PC. Ils réagissent au 
quart de poil, ce qui fait très plaisir 
après les souffrances endurées pen- 
dant de longues années avec la sou- 
ris d’origine. 


Cette souris a le gros avantage 
d’être inusable mécaniquement, 
puisqu'il n'y a pas de partie méca- 
nique pour les déplacements, et que 
sa toilette se fait en deux coups de 
chiffon, pas besoin de se livrer à un 
démontage en règle. Comme en 
plus elle n’est pas laide, qu'on a un 
tapis de souris (qui lui est indispen- 
sable, c'est vrai), et que les boutons 
sont très bien, on ne peut que lui 
reprocher son prix relativement 
élevé (plus de 500 F), mais pour du 
“haut de gamme”; comme le dit son 
distributeur, pourquoi pas ? 


Watsit & Jacques Caron 








Non, ce n’est pas la 
référence d’un composant 
dernier cri de la famille 
68000, mais tout 
simplement le nom de code 
d’une carte de 
développement pour le 
microcontréleur 68705P3. II 
s’agit d’une carte qui se 
branche sur votre machine 
et qui permet de 
développer et de mettre au 
point du code pour le 
68705, un microcontrôleur 
bien connu des 
électroniciens de tout 
acabit. Mais voyons avant 
tout ce qu'est un 
microcontrôleur... 


QU'EST-CE DONC ? 


C'est une petite bête de 28 broches 
qui contient un microprocesseur (1, 4, 
8, 16 ou même 32 bits pour les plus 
performants), quelques octets de 
RAM, quelques kilo-octets d'EPROM, 
des ports d'entrées/ sorties pour com- 
muniquer avec l'extérieur et des timers 


programmables. Le 68705, lui, est un 
microcontrôleur 8 bits et dispose de 
112 octets de RAM utilisateur, de 1804 
octets d'EPROM, de 20 bits d'entrées/ 
sorties et d'un timer programmable. 
Vous allez me rétorquer qu'avec si peu 
de mémoire, on ne doit pas pouvoir 
faire grand-chose. Eh bien détrompez- 
vous! Une foule d'applications se 
contente de microcontrôleurs car on 
voit, d'après ce qui précède, que ce 
composant rassemble, certes en petite 
quantité, tous les constituants d'un 
ordinateur, et possède son propre lan- 
gage d'assemblage lui permettant de 
piloter toutes sortes de petites applica- 
tions : décodage de clavier, gestion de 
lignes série, programmateurs d'appa- 
reils électroménagers, commande de 
moteur pas à pas, alarmes, déco- 
deurs-désembrouilleurs, bref toute une 
panoplie d'applications relativement 
simples et répétitives ne nécessitant 
pas une capacité de calcul phénomé- 
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nale. L'opération est financièrement 
intéressante car un microcontrôleur 
coûte infiniment moins cher que son 
équivalent en circuits classiques de 
capacité équivalente (microprocesseur 
+ RAM + EPROM + circuits d'interfa- 
ce). Il remplace à lui seul une bonne 
dizaine de circuits différents, réduisant 
du même coup la complexité du circuit 
imprimé de la carte ou du montage 
développé. De plus, étant program- 
mable et même reprogrammable, cela 
permet des modifications ou des 
mises à jour plus faciles et rapides 
qu'avec des circuits logiques clas- 
siques, de type TTL par exemple. 


LE KIT DE DEVELOPPEMENT 


La carte proprement dite se connec- 
te d’un côté sur le port série du ST 
et de l’autre, par l'intermédiaire d'un 
câble en nappe, à l'application à 
développer. Par application, il faut 
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comprendre ensemble hard+soft 
destiné à remplir une fonttion quel- 
conque. || est à noter que ce kit, uti- 
lisant la liaison série, marche aussi 
bien sur ST que sur PC. Il suffit de 
demander la version de logiciel 
adaptée à la machine, rien sur la 
carte elle-même ne différenciant les 
machines connectées. 


La carte électronique (200x125 mm) 
est très propre : circuit double face, 
trous métallisés, pas de fils ou de 
straps rajoutés à la dernière minute, 
tous les composants sont sur sup- 
ports, un fusible est là pour protéger 
la carte. En résumé, une carte qui 
paraît bien faite même si on ne peut 
s'empêcher de penser qu'elle pour- 
rait être un peu plus compacte. 


MISE EN OEUVRE 


La carte à mettre au point sera 
branchée au kit de développement 
durant toute la phase d'écriture et 
de mise au point du code, jusqu'à la 
programmation du microcontrôleur. 
Un câble en nappe ramène tous les 
signaux importants de la carte vers 
le kit pour simuler totalement et fidè- 
lement le 68705. Il faut bien saisir 
que l’application sera totalement 
dépendante de l'ordinateur-hôte. 


Ceux qui ont SPECTRE (128 ou 
GCR), et qui ont lu les “News-let- 
ters” jusqu’au bout, auront vu que 
c'est ce genre d'outil, bien plus puis- 
sant que n'importe quel débogueur 
soft, qu'utilisait Dave Small pour 
mettre au point son émulateur 
Macintosh (cf. Gadgets News Letter 
2, ZAX “In Circuit Emulator”), c'est 
dire que c’est loin d’être un gadget 
et que le marché porte sur des 
dizaines de millions de dollars ! 


A QUOI CA SERT ? 


Le kit intervient à toutes étapes du 
développement de sa carte : écriture 
du code source, assemblage, généra- 
tion de code objet, chargement de ce 
dernier dans la carte, mise au point et 
programmation finale du microcontrô- 
leur, une fois le code finalisé. Son 
usage permet pratiquement de décu- 
pler la vitesse de mise au point. 


En effet, contrairement au débogua- 
ge de programmes en assembleur 





pensez-vous d'untraitement detextes dont la prise en main serait 
immédiate, et qui comblerait tous vos désirs d'édition ? 

En quelques «clics» de souris, définissez vos blocs de texte ins- 
tantanément, soulignez-les, mettez-les en forme, copiez-les, en- 
richissez vos documents. En haute résolution bien sûr, en parfait 
WYSIWYG évidemment, et surtout. avec les centaines de po- 
lices au format Signum!, qui vous procureront des sorties de la 
plus haute qualité, y compris sur les matricielles. Quant bien 
même la vitesse d'impression serait pour vous cruciale, vous 
pouvez aussi exploiter les polices, proportionnelles ou non, de 
votre imprimante. 

Mais simplicité et performance ne sont pas tout. Vous disposez 
d'une palette de fonctionnalités des plus étendues : insertion de 
graphiques, compatibilité ASCII, macros-fonctions, raccourcis 
clavier, tabulations décimales, notes de bas de page, etc. 
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© prouvez-moi que performance et simplicité sont conciliables : 
ci-joint un chèque de 50 F, pour une version bridée de :script. 


o je souhaite simplement recevoir une documentation. 
o :script coûte-t-il réellement 790 F seulement ? 


© :script tourne sur Atari ST 1 Mo haute résolution: Que puis-je 
faire avec mon moniteur couleur ? 
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NOM: PRENM: 
N': RLE:: 
CP: VLLE: B I 
Coupon àrenvoyer à: Application Systems Paris 1 
18, rue Germain Dardan 92120 Montrouge £ [L 
Tél.: (1) 40 92 80 81 + | 
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Script 


Le traitement de textes définitif. 
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sur micro-ordinateur, la programma- 
tion et la mise au point sur microcon- 
trôleur se font un peu “en aveugle” : 
entendez par là que, faute de res- 
sources suffisantes (mémoire RAM, 
ROM, dispositif de visualisation, 
accès aux registres, etc.), on ne voit 
pas bien ce qui peut se passer. De 
plus, sachant que l'application tour- 
ne au minimum à 1 MHz (soit un mil- 
lion de cycles d'horloge, chaque ins- 
truction prenant entre un et quaire 
cycles), n'espérez pas pouvoir saisir 
des phénomènes aussi fugitifs. Sans 
kit de développement, on n’a ni 
accès aux registres, ni possibilité de 
mettre des points d'arrêt. Sans kit de 
développement c'est comme si, Sur 
votre machine, vous preniez un 
assembleur quelconque, que vous 
écriviez votre programme source, 
que vous l’assembliez et que vous 
essayiez, sans l'aide d’un débogueur 
et sans possibilité de traçage, de le 
mettre au point. Crises de nerf 
garanties et mise au point d'applica- 
tions complexes reportée aux 
calendes grecques! 


Avant d'aborder en détail l’utilisation 
du kit, une petite précision : le soft 
n'est pas sous GEM, le souci des 
concepteurs n'ayant pas été de faire 
un programme “joli” mais de fournir 
un outil de développement riche et 
complet, d'autant qu'il s'adresse, a 
priori, à une population de dévelop- 
peurs habitués aux environnements 
textuels (par opposition aux environ- 
nements WIMP : Window, Icon, 
Mouse, Pointer). À partir de mainte- 
nant, on “range” donc sa souris. 
On lance le programme qui intègre 
toutes les fonctions nécessaires par 
la suite. Un bandeau rappelle toutes 
les commandes disponibles à un 


moment donné. Ces commandes 


sont activables par l'appui sur la 
touche correspondant à la première 
lettre du nom de l'option (A pour 
Assembler, E pour Editer...) et la 
touche ESCAPE permet de sortir 
d'une option. 


L'EDITEUR-ASSEMBLEUR 


C'est un “éditeur page” avec toutes 
les fonctions classiques: insertion, 
suppression, notion de bloc, etc. Au 
moyen des touches de curseur, on 
peut se déplacer n'importe où dans 
le texte, l'écran affichant une page 


de 24 lignes. L'assembleur est du 
modèle dit “symbolique à deux 
passes” : dans un premier passage, 
il récupère tous les symboles, c'est- 
à-dire tous les noms de variables et 
les étiquettes des branches du pro- 
gramme. Au cours de sa deuxième 
passe, il génère le code proprement 
dit. Il est assez tatillon sur la syn- 
taxe à respecter. Chaque ligne se 
compose de champs optionnels 
mais séparés par au moins un espa- 
ce : champ étiquette, champ instruc- 
tion, champ opérande, commentai- 
re. Le tout est facile à prendre en 
main et le cycle édition-assemblage 
est très rapide. 


LE DEBOGUEUR 


On attaque maintenant la partie la 
plus intéressante : l'émulation sur le 
kit de développement de l'applica- 
tion, et le déboguage et traçage du 
code objet. Par l'intermédiaire d'une 
commande, on charge le code objet, 
non pas dans sa carte d'application 
mais dans la carte d'émulation elle- 
même, ce qui permet d’avoir accès 
à un pseudo-68705 idyllique : on a 
accès à tous ses registres, on peut 
mettre des points d'arrêt un peu par- 
tout, faire du pas à pas, examiner et 
modifier totalité ou partie de la 
mémoire, modifier les registres et 
repartir, et bien d’autres choses 
encore. Toutes choses utiles pour 
mettre au point rapidement et effica- 
cement son application et qui ne 
sont pas possibles en temps normal. 


Généralement arrivé à ce point là, et 
sauf don ou chance exceptionnels, il 
y a de grandes chances pour que 
vous repartiez dans l’éditeur-assem- 
bleur car il paraît peu probable que 
votre programme marche du premier 
coup. On repart donc dans un certain 
nombre de cycles édition - assembla- 
ge - deboguage jusqu’à ce que le 
programme tourne correctement. 


Le code étant finalement au point, il 
ne reste plus qu'à programmer le 
68705 définitif qui, le malheureux, se 
morfondait dans son coin. Pour ce 
faire, rien de plus simple, il suffit de le 
mettre à l'emplacement prévu sur la 
carte et d'utiliser la commande de 
programmation. Le code étant main- 
tenant inscrit dans le microcontrôleur, 
il ne reste plus qu'à le mettre en 
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place sur la carte développée et à 
couper le cordon ombilical qui la 
reliait à la carte de développement. À 
partir de ce moment seulement, voire 
montage est réellement autonome. 


LA DOCUMENTATION 


Elle est en français, volumineuse 
(250 pages) et remarquablement 
didactique, expliquant en détail le 
fonctionnement du microcontrôleur 
et reprenant toutes ses instructions 
en détail. On trouve aussi une 
bonne vingtaine d'exemples dont le 
source se trouve sur la disquette, et 
permettant de se faire rapidement la 
main. On y trouve également un 
long chapitre sur le fonctionnement 
de l'émulateur lui-même, sur ses 
connexions, sur ses limites et diffé- 
rences par rapport au microcontrô- 
leur émulé. 


CONCLUSION 


J'espère que cette première excur- 
sion dans le domaine des microcon- 
trôleurs vous aura intéressé et donné 
l'envie d’aller y voir de plus près. 
C'est un monde aussi passionnant 
que celui des micro-ordinateurs 
même si ses applications, de par les 
ressources mémoire limitées, ne sont 
pas du tout comparables. Le plaisir 
de voir tourner un montage électro- 
nique autonome est aussi grand que 
celui de voir tourner un programme. 
La carte, proposée à moins de 5000 
F par la société aixoise MECALO- 
GIC, n'est certes pas donnée pour un 
budget d'amateur, mais est incompa- 
rablement moins chère que les 
autres solutions professionnelles qui 
existent. Elle a sa place dans tout 
bureau d’études et dans les orga- 
nismes de formation en électronique 
: écoles, centres de formation profes- 
sionnelle. De plus, tournant indiffé- 
remment sur ST et sur PC, elle dis- 
pose assurément de la base installée 
la plus large qui soit. Que pourrait-on 
demander de plus ? Peut-être une 
nouvelle version du soft plus convi- 
viale tournant sous GEM et la mise 
en boîtier de la carte. 
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CABLE INFORMATIQUE SUR ATARI ET AMIGA 
CABLE ROND AU METRE Cable peritel male 13 Broches male 150.00 
nÉ quadrupleur de joystick ATARI ST 1 DB25 / 2DB9 150.00, 
14 Non Blindé doubleur de joystick ATARI ST 1 15 hd / 2DB9 150.00 
14Blindé ï Cable minitel PC / ATARI ST/ AMIGA DB25F / DIN 5 Br 95.00 
. Cable péritel amiga/ DB23M/ 2 RCA M / 1 peritel male 180.00 
coble ennoppe au métre 0.40 le PTS Cable péritel amiga/ DB23F/ 2 RCA M / 1 peritel male 180.00 
14 Conducteur j Cable disque dur ATARI DBI9M / DB19M .70m 120.00 
Cable pour connecter leteur 51/4 130.00 
Cable pour connecter leteur 3”1/2 130.00 
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Prise DB9 Male ou Femelle 8.00 
Sn nn. pis Ke Prise DB23 Male ou Femelle 8.00 
300 m 9500F 78.50 NC. Prise D25 Male ou Ferrlle 4.00 
5.00 m 129 00 F 110.00 NC Capot DBI9 Vis longues 8.50 
7:00 m 17000F 144.50 NC. Capot DB23 Vis longues 8.50 
CABLE SERIE Capot DB25 Vis longues 6.80 

1.80 s950 F 38.00 " Free Boot 100.00 


Fa 9600F terû Autres longeurs: supplément au métre linéaire Prix TTC 
5.00 13500 F 115,00 rex . 
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Afin d’égayer notre 
habituelle série, et de 
combler quelques oublis, 
nous vous proposons ce 
mois-ci une réalisation 
destinée aux mordus des 
cocottes en papier. En 
effet, nous vous offrons la 
possibilité de mettre à jour 
votre vieux numéro 42, et 
ce, grâce à de subtils 
collages. Vous trouverez 
tout au long de cet article 
les instructions 
nécessaires au bon 
déroulement de la 
manipulation, qui est à la 
portée d’un enfant de 
moins de 10 ans (même 
notre assistant télématique 
l’a réussie, alors pensez- 
vous...) 


LES EXTENSIONS 
MÉMOIRE 





MODE D'EMPLOI 


N'ayez aucune crainte, tout se pas- 
sera bien ! 

e Munissez-vous de ciseaux et d’un 
peu de colle. 

e Découpez proprement les 
colonnes suivantes, en prenant soin 
de ne pas les mélanger. 

e Repérez la page 50 du précédent 
numéro. 

e Collez avec soin les textes décou- 
pés, en lieu et place de ceux du 
mois dernier. 

e Et rachetez ce numéro, de maniè- 
re à conserver un ST Mag 43 en 
parfait état. 


Malgré le soin que nous avons porté 
à cette réalisation, il se peut que 
vous rencontriez de légers pro- 
blèmes. Dans ce cas, veuillez nous 
contacter, en mentionnant sur votre 
lettre “Service consommateurs ST 
Magazine, Rubrique pliages et col- 
lages”. En outre, si vous possédez 
un Minitel, nous vous rappelons que 
notre serveur 3615 STMAG est 
ouvert nuit et jour, et même le 
dimanche. 


PROTECHNIC 


Une information incomplète est la 
cause de toutes les manipulations 
que vous venez de faire subir à 
votre mensuel. En effet, notre précé- 
dent article sur Protechnic ne pré- 
sentait pas toute la gamme de ses 
produits, et introduisait alors des 
erreurs. Pour exemple, nous annon- 
cions qu'une partie de la mémoire 
des 1040 était perdue lors du passa- 
ge en 2,5 mégas, mais c'était sans 
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4e épisode 


compter sur la déclinaison 3 méga: 
de l'extension, spécialement prévu 
pour cette machine. 


LA GAMME 


La toute première carte de cette 
société date des 520 ST avec lecteu 
de disquette et alimentation séparés 
Bien qu'elle ne soit plus disponible 
aujourd'hui, on peut souligner qu'ell 
s’est vendue à plus de 400 exem 
plaires, nombre important pour li 
parc de machines de l'époque. 


Puis vint le modèle pour 520 STF 
dont un millier de machines sont : 
ce jour équipées (sans compter le 
copies marquées Protechnic !). O: 
peut se demander pourquoi uni 
telle carte a vu le jour, alors que | 
STF offrait directement la possibilit 
d’une extension de 512 Ko. L 
réponse est simple : il s'agissait d 
diminuer le nombre des soudure 
(17 contre 256, qu'il fallait préalable 
ment dessouder !). Elle est toujour 
proposée, et à un prix légèremer 
supérieur à 600 F. 


Le troisième produit existe en deu 
versions, prévues pour les modèle 
STF. La première étend un 520 

2.5 Mo, et la seconde un 1040 à 

Mo. Contrairement à ce qui éta 
annoncé le mois dernier, le még 
interne du 1040 est donc bien util 
sé, puisque la carte n'apporte qu 
deux mégas supplémentaires. Pe 
contre, cette récupération de | 
RAM d'origine complique son insta 
lation, et a pour conséquence d'e 
empêcher la vente en kit (contraire 
ment à l'extension pour 520). 
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La toute dernière carte, nommée 
Delta, fonctionne avec des barrettes 
SIPP (des SIMM avec des pattes). 
Elle peut être installée dans les 
Méga 1 et 2, ainsi que dans les STF. 
De plus, prévue pour ne pas encom- 
brer le Méga ST, elle laisse de la 
place libre aux PC Speed et autres 
Hypercaches.…. 
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Les deux cartes 2 Mo et la Delta 
équipée de deux barrettes 1 méga 
sont disponibles à un prix public 
d'environ 2500 F. 


Ces produits Protechnic étant exclu- 
sivement disponibles auprès des 
revendeurs, nous vous conseillons 
d'étudier les prix publics pratiqués. 










Certaines marges peuvent en effet 
augmenter sensiblement les prix, et 
l'on trouve parfois les 2 Mo aux 
environs de 3000 F ! 


RÉCAPITULATIF 


En précisant bien que nous ne sou- 
haitons pas classer les cartes par 
ordre de qualité, puisqu'elles diffè- 
rent toutes, nous vous présentons 
pour conclure un tableau récapitula- 
tif des offres proposées. 

Vous noterez toutefois qu'il n'est pas 
exhaustif, et tous les distributeurs 
concernés par la question de 
l'extension mémoire sont invités à 
contacter la rédaction afin que nous 
présentions leurs solutions et abou- 
tir ainsi à une présentation complète 
de l'offre en ce domaine. 


Pierre Michel 
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STF, M1, M2 
Sud Micro | |STr 
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520STF 1_Mo | Non | Oui | i 
| Clavius | DIL |STF  |25Mo|Non| Oui | Compri 
| Clavius | DIL | STF | 4 Mo|Non| Oui | Compri 
| Clavius | DIL | M2 |4 Mo|Non| Ou | i 
 D.CI. | AtamaxO | STF,M2 | [Oui] Non | Gratuite | 
D.CT. | Atamax1  |520STF | 1 Mo|Oui| Non | Gratuite | 
Atamax 2 ee ou Ron 
Atamax 2 | M2 | 4 Mo] Oui] Non 
Atamax 4 4_Mo | Oui | Non | Gratuite 
520STF 1_Mo | Oui | Non |  300F 
| Frontier Soft. | Xtra-RAM |STF,M1 |2,5Mo/|Oui] Non 300 F 
Micro-Vidéo | [M1 | 2 Mo|Non Oui Comprise 
Micro-Vidéo Comprise 
Micro-Vidéo | 1040STF | 2 Mo | Non. Comprise 
Micro-Vidéo CSST TUE Non Comprise 
Protechnic Méga STF Oui Comprise 
_Protechnic |2MégaSTF |5208TF | 2,5 Mo | Oui Comprise 
Non Comprise 
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signifient Méga ST 1 et Méga ST 2. 


- La colonne Total donne la mémoire après extension. 


Dernière minute : Vous trouverez dans le ta 


nous avons reçu les caractéristiques au moment du bouclage... 
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bleau ci-dessus deux produits de la société Sud Micro, dont 


























Voilà qui va apporter un 
souffle d'air frais dans le 
monde de l'image sur ST ! 
Le GST 40 E, spécialement 
conçu pour tout type de 
STe, est en effet le premier 
genlock-incrustateur à 
fonctionner réellement sur 
votre machine préférée, 
qu'on se le dise ! C'est une 
société française 
(cocoricooo...), Satellite & 
Télévision, qui est à 
l'origine de sa création, en 
s'attachant à offrir, avec 
une extrême facilité 
d'emploi, un résultat d'une 
excellente qualité. 















LES JOIES DE LA VIDEO 


Incruster proprement une image en 


provenance du STe sur une image 
vidéo est donc désormais possible. Il 
est important de rappeler succinte- 


ment le rôle des trois parties princi- 
pales qui composent un tel boîtier. 


Tout d’abord, le genlock synchronise 


les deux sources vidéo pour avoir les 
deux images (STe et vidéo) parfaite- 
ment l’une sur l’autre. Il s’agit ensuite 
d'encoder en PAL les composantes 
Rouge, Verte et Bleue du STe, avant 
d'incruster l'image du STe sur l'image 
vidéo. La couleur de fond de l'image 
STe est considérée comme transpa- 
rente pour la vidéo, et l'on voit ainsi 
apparaître l'image vidéo en arrière 
plan à travers cette découpe. 
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LE GST 40 E 


Entrée vidéo 


Sortie vidéo À 
incrustée LS =) 
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L'installation du GST 40E ne devrait 
vous poser aucun problème. En 
vous aidant du schéma ci-joint, vous 
arriverez très rapidement à enregis- 
trer sur bande vidéo la date de la 
dernière visite de votre ami le mar- 
tien. Les connections vidéo s’effec- 
tuent sur le devant du genlock, 
celles du STe à l'arrière. Le boîtier 
que vous pouvez voir sur la photo 
est en fait un modèle de présérie, la 
prise audio sur la face avant ne figu- 
re plus dans la version finale com- 
mercialisée. 


COMMENT ÇA MARCHE 
Procédons par ordre : la sortie moni- 


teur du STe se connecte au GST 
40E (câble fourni), puis en ressort 
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Contrôle 
vidéo 





Magnétoscope 


enregistreur 


GSTA0E 








vers le moniteur du STe. La caméra 
se branche sur l’entrée vidéo du 
GST, et enfin, il ne vous reste plus 
qu’à relier sur la sortie vidéo un 
quelconque magnétoscope PAL 
(VHS, 8mm, U-matic...). 


Üne fois la configuration en place, 
booter le STe avec la disquette four- 
nie, le logiciel “Desync. Prg” installé 
dans un dossier AUTO signifiant au 
STe qu'il doit se synchroniser sur 
une horloge externe. Il suffira de 
régler ensuite la phase sur la face 
avant du genlock, de façon à ce que 
l'image soit d’une qualité optimale. 


Et hop ! L'installation ci-dessus vous 
permet d'obtenir, sans aucun pro- 
blème, une incrustation en moins de 
5mn. Simplicité garantie ! Voilà de 
quoi laisser rêveur les genlocks plus 
perfectionnés et “boutonneux”, qui 
aiment généralement se laisser tri- 
patouiller pendant un certain temps 
(un temps certain!), avant de dai- 
gner afficher un premier résultat. 


Le signal vidéo (camescope) ne fait 
que passer à travers le GST 40E 
sans subir aucune modification. On 
le retrouve en sortie avec la même 
qualité, décoré des zibouibouis du 
STe incrustés par dessus. Petit détail 
pratique, si vous débranchez ladite 
entrée vidéo, vous coupez ainsi 
l’arrivée de l'horloge qui synchronise 
l'ensemble. Le GST 40E recrée alors 
automatiquement une synchro, pour 





éviter tout plantage du STe. En fait, 
ce cas de figure correspond à une 
rupture de signal vidéo, réel à 
chaque fois que vous arrêtez la lec- 
ture du camescope, ou que vous 
rembobinez. Le GST 40E, grâce à 
cette particularité, peut également 
être utilisé comme encodeur PAL. Il 
suffit de ne pas connecter l'entrée 
vidéo, seule l’image du STe sera dis- 
ponible en sortie. Vous pourrez ainsi 
copier vos images et animations STe 
sur votre magnétoscope. 


Une version spéciale du GST 40, 
est aussi disponible pour les ST. Par 
contre, il faudra faire preuve d'un 
peu plus de patience, et d'un mini- 
mum de dons en bricolage pour en 
profiter. En effet, seul le STe a été 
prévu pour accepter directement un 
genlock. Les propriétaires de ST 
devront donc ouvrir leur machine 
pour placer un petit sabôt sur l’un 
des circuits intégrés. 


Son prix inférieur à 2300 F et sa sim- 
plicité de mise en oeuvre doivent 
permettre à un plus grand nombre 
de vidéastes de profiter d'ouvertures 
graphiques performantes, réservées 
jusqu'à présent aux initiés, ou à ceux 
qui avaient plus de moyens. Une 
version Y-C de ce genlock, dédiée 
uniquement aux magnétoscopes S- 
VHS, est en cours de réalisation. 


Anne Olivelli 
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Les Sources ArtSoft 


Le concept qui a fait notre succès : des 
programmes exécutables performants et originaux, 
développés pour répondre aux besoins 
fréquemment rencontrés par les utilisateurs, et 
accompagnés de leur fichier source (listing) 
largement commenté. 


Six disquettes disponibles ( 250 F. chaque) : 
: Comptes Bancaires + Utilitaires 
: Edition Etiquettes + Compactage + Divers 
: Editeur Disque + Simulation + Utilitaires 
: Environnement de travail sur ST 
: Gestion de Base de données 
: Utilitaires Anti-Virus (Détection, Vaccin, ...) 


Les Utilitaires ArtSoft 


Voici, regroupés sur une même disquette, 
15 Utilitaires et Accessoires indispensables à votre 
confort et celui de votre ST. 


Quelques-unes des fonctions couvertes : 
HEURE : mise à l'heure automatique après reset, 
affichage permanent, réveil. 

ECRAN : capture de l'écran, harcopy sur 
imprimante, aulo-extinction de l'écran. : 
MEMOIRE DE MASSE :ram-disque, recherche 
de fichiers, lecture/impression de fichiers ASCII 
ou Hexadécimaux, vaccination des disquettes. 
SYSTEME : Reset au clavier, taille mémoire 
disponible, accélérateur de souris intelligent, 
détection des virus. 


La disquette est livrée avec une notice 
d'utilisation imprimée .….….…. (Prix 390 F.). 


Jeux de Lettres ArtSoft 


(pour Mots Croisés, Mot le Plus Long, 
SCRABBLE, Anagrammes, ..) 


Pour les amateurs de jeux de lettres, ce 
programme contient un dictionnaire évolutif de 
plus de 60.000 mots, et dispose de fonctions de 
traitement et de recherche très évoluées. 

Il dispose de filtres multiples pour le tri et la 
recherche : lettres en vrac ou pré posilionnés, 
genre des mots el forme, longueur des mots, etc... 


Fonctionnant avec toute la gamme ST, du 
520 ST au Mega ST, en monochrome ou couleur, 
ce programme est livré avec notice d'utilisation 


(Prix 390 F.). 


Disquette de Présentation 
et de Démonstration. 
(avec Source) 


[] Disquette / Programme 
( Disquette de Démonstration 


Participation aux frais de port 


[] Liste détaillée (joindre enveloppe timbrée) 


Ci-joint mon réglement par chèque à : 


DUTAUD 
11, rue François Gillet 
42000 Saint-Etienne 

















Du nouveau pour les fanas 
d’astrologie, puisque les 
éditions MEZANGUEL 
proposent la toute dernière 
version de PUBLIC ASTRO 
(voir ST Mag n- 25). Ce logiciel 
déja très vaste par ses 
différentes applications a subi 
une refonte très importante. La 
documentation a été encore 
plus clarifiée qu'auparavant 
surtout pour les premiers pas 
avec le logiciel (préparation 
d’une disquette de travail qui 
servira pour toute la recherche 
astrologique) ainsi que 
quelques pages 
supplémentaires concernant la 
protection du logiciel. Que le 
lecteur et surtout l’auteur, 
veuillent bien nous excuser de 
la mauvaise qualité des 
illustrations qui accompagnent 
cet article, la conversion des 
images couleur en noir et 
blanc provoquant 
immanquablement une perte 
de définition et des 
déformations inesthétiques. 
Ces images ne doivent 
préjuger en aucun cas de la 
présentation réelle du logiciel 
en moyenne résolution, des 
problèmes techniques nous 
ayant empêché d'insérer les 
images couleur adéquates. 





Public Astro vous propose désor- 
mais 2 possibilités pour les saisies : 
- soit une saisie par le mode ques- 
tions/réponses ; 

- soit une saisie par mode gra- 
phique à l'aide d’un tableau par 
l'intermédiaire de la souris. Ce mode 
est très pratique en utilisation, car il 
n'y a aucune action sur le clavier, et 
il est très simple de corriger une 
erreur puisque la sélection d'une 
nouvelle valeur remplace le choix 
précédent. 

Le calage horaire permettant de faire 
varier l'heure de naissance à la minu- 
te près reste inchangé (voir fig. 1). 


En ce qui concerne la domification, 
vous pouvez sélectionner trois 
méthodes différentes : CAMPANUS, 
REGIONMONTANUS, ou PLACIDUS. 
L'option thème pose la question sur 
l'âge concerné et le lieu d'anniversaire. 


PUBLIC ASTRO 
VERSION 2 






Ecrit en GfA 3.5, donc plus rapide 
que l’ancienne version, le thème est 
dressé en 30 secondes, et l'ensemble 
des études comprend : 

1) L'horoscope natal ; 

2) Les directions symboliques pour 
l’âge demandé ; 

3) Les âges aux transits par les 
directions symboliques ; 

4) L'horoscope progressé ; 

5) Thème de révolution solaire ; 

6) Thème de révolution lunaire. 


Les parties 1, 4, et 5 comportent 
chaque fois : une grille d'éphémé- 
rides (fig. 2), une carte du ciel cor- 
respondant (fig. 3), et un tableau de 
consultation. Chacun des choix peut 
être bien évidemment imprimé. 


Pour un astrologue professionnel, 
ceci va représenter la partie princi- 
pale, car elle va lui permettre de 
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On apprécie le vin et les victuailles savourés en plein air à la campagne | 
t de sa liberte provisoirement. Nécessite d'etre objectif 


12°51} ? 17° 18/4 14°56 
Et AS bts x 
Travail et enseignement par les voyages, Handicap physique possible 
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gagner un temps considérable. || est 
évident qu'il utilisera ses propres 
interprétations par rapport à tout son‘ 
savoir d'astrologue. Le novice a la 
possibilité d'utiliser la disquette 
‘interprète’ (dont la majorité des 
interprétations ont été tirées du “Dic- 
tionnaire astrologique” de H.-J. 
GOUCHON) qui est encore plus 
fournie, et devra en dégager une 
synthèse, ce qui représente pour 
l'utilisateur de nombreuses heures 
d'analyse personnelle vu la quantité 
d’interprétations. 


Un “plus” également avant tout cal- 
cul, c'est le tableau de correction qui 
permet la modification des longi- 
tudes planétaires, écarts en minutes 
d'angles. Vient ensuite le calcul des 
directions primaires. Le logiciel per- 
met de commencer par l'étude des 
directions avec leur interprétation, 
puis d'utiliser les transits pour y ajus- 
ter une date. Les fichiers créés peu- 
vent être consultés à tout moment 
par l'option lecture, et sont utilisables 
pour toute une vie, et à chaque 








PAINT DESIGNER 


Un outil de dessin en mode BITMAP et VECTORIEL pour ATARI 
monochrome. Reconnait de nombreux formats d'images, dont le format 


utilisé par les logiciels de PAO. 


interface utilisateur. 


PAINT DESIGNER allie puissance et ue sa nouvelle 


Un logiciel à la mesure du tale 


ATARI avec 1 méga de 
uniquement 


minimum 


Prix conseillé: 590 Francs 


PAYS DU MONDE 


ques 220 pays et territoires vous mettront sur la voie de la solution, 


re ordinateur 
— Monochrome 


2 disquettes + manuel 


aspect sur toute une vie correspond 
une interprétation au jour près. 


Les transits, quant à eux, concernent 
toutes les planètes sauf la Lune et 
Pluton. Lors de la lecture des tran- 
sits, le logiciel trace deux gra- 
phiques, l’un schématisant sous la 
forme de courbes les déplacements 
planétaires, l’autre représentant la 
puissance des transits planétaires 
en rapport avec la position des élé- 
ments du ciel natal. L'évaluation se 
fait par la force d'aspect et de posi- 
tion chiffrée et proportionnée aux 
bonnes et mauvaises influences. 


Le calcul des variations angulaires 
entre chaque planète demeure 
inchangé. L'option “Composite” per- 
met de sélectionner 2 fiches pour 
lesquelles longitudes des planètes 
et maisons seront calculées. La 
carte du ciel est alors dressée et 
doit être interprétée à vue. L’applica- 
tion définit le type de relations entre 
deux individus et leur exprime leur 
devenir potentiel. On peut vérifier 


KRévélez la puissance 


BASIC DESIGNER 


formats reconnus, 


programme BASIC en un program 
ATARI avec 1 Méga de mémoire mhimum — Monochrome uniquement 
Prix conseillé: 450 Francs 


également entre deux événements, 
personne-événement, personne par 
rapport à une date, etc., puisqu'il 
s’agit de fusion entre deux thèmes. 


La grosse nouveauté (et de taille !) 
étant l'option localisation, qui appor- 
te une disquette supplémentaire (ce 
qui en fait 4), et prend en considéra- 
tion l'heure et la date comme valeur 
fixe, le lieu géographique pouvant 
être choisi à loisir sur une carte 
mondiale (les valeurs sont tirées de 
l'Atlas de Poche de la Librairie 
Larousse). Par exemple, il suffit de 
choisir un lieu de naissance à New 
York, et la carte sera orientée sur 
les Etats-Unis. Il suffit ensuite de cli- 
quer à un endroit choisi pour voir 
apparaître longitude et latitude. Un 
quadrillage peut se superposer à 
l'écran si on le désire pour faciliter la 
recherche des coordonnées. Ensui- 
te, par simple appui d’une touche, la 
carte du ciel est dressée pour ce 
lieu. Pratique, non ? 





Il met votre disposition plus de 70 commandes trés puissantes pour réaliser des 
démonstrations ou des Slideshows d'images, avec ouverture vers de nombreux 


Pour ceux qui désirent aller encore plus vite, le noie Strron réalise SANS 


PROGRAMMATION, l'animation voulue, D 
BASIC DESIGNER posséde un QE qui transforme votre 


able sous GEM. 


1 disquette + manuel 


prendrez également à classer les pays selon leur population, leur superficie, ou leur produit 


Vous apprendrez avec PAYS DU MONDE à situer en vous DT souverains de la planète, Si vous hésitez, des aides spécifiques pour chacun de-ces quel. 


national brut par habitant. 
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Réglement bancaire — Carte bleue — ou Mandat 


ESAT SOFTWARE 55 rue du Tondu 33000 Bordeaux Tél. : 56.96.35.23. 
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SOLEIL NOIR : 25° 3' BEL | EXTRAIT D' EPHEMERIDES | LUNE HOIRE : 25° S° BAL 


RÉ = PODOPIRS « * 
* EPHEMERIDES POUR LE THEME MATAL : 


- Latitude : 42° 42° Nord. 
- Longitude : 2233 EST. 


- DATE : Le SAMEDI 


gg lis |17e10" 
tu POLE 4 VER 
12°50" agrar later 602 l17°13" 
dE Nord | Sud | Sud | Nord | Sud | Sud 





Les applications de l'option localisa- 
tion sont multiples : pour un individu, 
la recherche d'un lieu géographique 
peut s'appliquer au thème de révolu- 
tion solaire. Si l'individu souhaite 
orienter les effets vers une expansion 
professionnelle, il cherchera les lieux 
géographiques où Jupiter et Maison 
10 ont la même longitude zodiacale 
dans le thème de révolution solaire. 
En astrologie mondiale, cela permet 
l'étude des éclipses solaires. 






Le débutant en astrologie aura de 
quoi s'occuper pendant de très nom- 
breuses heures rien que pour 
l'étude de son thème et pour saisir 
toutes les possibilités et les subtili- 
tés de ce logiciel. Public Astro 
gagne en rapidité par rapport à son 
prédécesseur pour le calcul et le 
tracé des courbes (environ 5 fois 
plus rapide), il peut être également 
installé sur disque dur. 
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L'auteur a réalisé un travail très soi- 
gné autant sur le soft que sur la noti- 
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Quel soft préférez-vous obtenir? 


Celui-l1à? 





3615 BUBSJ 


ce. Une protection par code a été 
mise en place juste avant le charge- 
ment du logiciel mais qui n'est pas 
du tout astreignante. L'auteur envi- 
sage cependant de décomposer le 
logiciel en différents modules pour 
permettre au départ un accès enco- 
re plus simple au grand public, ca 
le logiciel nécessite pour l'instant ur 
minimum de 1 Mo de mémoire, e 
un écran couleur. 


Public Astro est vraiment une réfé- 
rence sur le ST en tant que logicie 
d'astrologie. À posséder absolumen 
pour toute personne intéressée pai 
le sujet, car on y découvre l'astrolo- 
gie, on en comprend les méca: 
nismes, pour enfin en être passion: 
né à ne plus en dormir. 


Michel Centelles (Cz 


TRUREAUT) 
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POISSONS CE. 


VERSEAU (A) 
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| Après EASY-DRAW 3.0 le 

| mois dernier, nous 

continuons notre 

présentation des logiciels 

| de dessin vectoriel, et 

‘ accueillons aujourd’hui 

| dans nos colonnes 
ARABESQUE. Annoncé à 
deux reprises dans les 
news, ce produit n'a cessé 

|) de nous faire saliver, et 

pl nous attendions avec 

| impatience sa sortie dans 

l'Hexagone. 
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Comme prévu, les éditions Upgrade 
se sont entièrement occupées de la 
traduction, tant du manuel que du 
logiciel. À ce sujet, la préversion de 
la documentation qui nous a été 
fournie laisse présager un produit 
fini de très bonne qualité. Quant au 
programme, il était dans sa version 
définitive, et fort bien francisé. 
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Une image en mode bitmap 
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ARABESQUE 


Ces fleurs étant lancées, nous pou- 
vons entamer la description de ce 
soft allemand, en débutant par sor 
installation. || fonctionne sur tous les 
modèles de ST, à l'exception des 
520. Toutefois, les utilisateurs de 
laser SLM804 ne pourront tirer part 
de leur imprimante s'ils ne possè- 
dent pas un minimum de deux 




















*X 0000.00 Y 0000 00 + 0000.00 + 0000.00 L 0000.00 4 0000.00 











mégas (comme d'habitude). Au cha- 
pitre des moniteurs, seuls lès mono- 
chromes sont utilisables, et bientôt 
les grands écrans. Enfin, l'utilisation 
de disque dur est possible, et ce 
logiciel peut “tourner” sous le swit- 
cher TWIST Il (voir quelque part 
dans ce numéro). 


GÉNÉRALITÉS 


À demi-GEM, Arabesque utilise les 
fenêtres, mais laisse de côté les 
menus déroulants (sauf dans un 
mode précis qui permet d'ouvrir les 
accessoires, en “basculant” sur un 
écran spécifique). Toute la philoso- 
phie du logiciel repose sur des 
menus pop-up, qui apparaissent à la 
position de la souris après un clic 
Sur le bouton droit. Un peu dérou- 
tant au premier abord, on s’habitue 
très vite à cet environnement. 

Ces menus contiennent une multitu- 
de d'icônes, relativement explicites, 
et toutes doublées d’un raccourci 
clavier (quel gain de temps). Leur 
utilisation est très simple, puisqu'un 
clic gauche exécute la fonction dési- 
rée, alors qu'un droit permet d'en 
modifier les paramètres. Prenons 
comme exemple le dessin à main 


levé, avec pour icône un crayon. Le 
bouton de droite laisse donc appa- 
faitre une fenêtre de réglage de ce 
Crayon, avec l'épaisseur du trait, son 
Style, la forme des extrémités, etc. 
Puis le bouton de gauche fait dispa- 
raître le menu, et donne accès à la 
Page de dessin. Il est possible d'affi- 
Cher sur celle-ci une règle, graduée 


Déformations, tramés, remplissage de formes... 


sel 


el 
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en centimètres, en pouces, en 
points ou encore dans votre propre 
échelle. De plus, les coordonnées 
de la souris sont constamment 
visualisées, ainsi que divers rensei- 
gnements sur l'opération en cours 
(largeur, hauteur, angle...). 


MODE BIT-MAP 


Comme le laisse présager ce titre, 
Arabesque n’est pas exclusivement 
vectoriel, puisqu'une importante par- 
tie bit-map le compose. C'est même 
son mode par défaut, expliquant 
ainsi la position de ce paragraphe 
dans l’article. 


Avec un maximum de 9989 par 9999 
points, ce logiciel sait théoriquement 
gérer une résolution de 1200 points 
par pouce, ou une page de 84 cm de 
côté en 300ppp! Cependant, il fau- 
drait lui fournir une mémoire de plus 
de 12 mégas, ce qu'un ST ne peut 
faire à ce jour. En vous limitant donc 
aux performances d'un Méga 4, 
vous pouvez travailler sur un peu 
plus de deux pages A4, avec une 
précision de 300 ppp. 


Hormis les habituels outils (dessin à 
main levée, lignes, rectangles, 
cercles...), de nombreuses fonctions 
sont présentes. Ainsi, des courbes, 
des arcs d'ellipse, des triangles et 
des parallélogrammes 2D. et 3D 
vous viennent en aide. De plus, un 
puissant mode texte permet d'écrire 
dans les quatre directions, en gras, 
léger, italique, souligné et contour. 
Les polices utilisées sont de type 
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GEM classique, mais le point fort 
réside dans l'absence de GDOS, 
permettant de charger une fonte en 
cours d'utilisation. Signalons enfin la 
présence d'un utilitaire de conver- 
sion de polices Signum, élargissant 
grandement la bibliothèque de 
caractères utilisables. 


Le remplissage de surface offre lui 
aussi des possibilités inhabituelles, 
telles que l'emploi de trames 
d'impressions, ou un mode de dégra- 
dé automatique ! Mais la partie la 
plus impressionnante du mode bit- 
map est la manipulation quasi temps- 
réel des blocs. En effet, après une 
découpe, pas moins de 24 fonctions 
vous sont proposées. Elles vont des 
plus simples, comme les miroirs et 
l’inversion, aux plus compliquées, 
avec le lissage et le remplissage de 
formes ! Citons aussi le détourage, 
les rotations, les courbures et autres 
déformations, les changements de 
taille, et les ombrages. Imaginez que 
pour coller un bloc à une sphère, il 
suffit de dessiner un cercle, et de 
remplir ce cercle avec le bloc. 
impressionnant ! 


Pour conclure cette partie, apprenez 
qu'une loupe variable est présente, et 
qu'elle permet d'utiliser toutes les fonc- 
tions de la boîte à outils. Sont aussi 
implémentés une prévisualisation de la 
page avant impression, et un “clipping” 
protégant de toutes manipulations cer- 
taines de ses parties. 


C'est une fois le dessin effectué que 
le mode vectoriel prend toute sa puis- 
sance. En effet, le logiciel est mainte- 
nant capable de dissocier un des élé- 
ments de l'image, et de lui faire subir 
les pires traitements. Couper, copier, 
coller, déplacer, retravailler, pivoter, 
incliner, épaissir, modifier la taille, 
envoyer dessus ou dessous, et bien 
d’autres fonctions sont au menu des 
réjouissances. Vous pouvez même 
grouper des objets de manière à les 
éditer simultanément. 


L'image achevée, vous pouvez la 
transférer en bit-map ou l’imprimer 


MODE VECTORIEL 
Enfin direz-vous, mais nous ne pou- 


vions passer sous silence les précé- 
dentes possibilités ! 






















































































Image importee de 
EASY-DRAY, en mode GEM... 


























Arabesque permet donc le dessin 
vectoriel, autrement dit, par objets. 
Nous pouvons résumer cette méthode 
en spécifiant qu'une image n'est plus 
ici mémorisée comme un ensemble 
de points (bit-map), mais comme une 
série d'objets (un objet étant lui-même 
composé de vecteurs mathéma- 
tiques). Par exemple, un trait n’est 
plus une suite de points allumés, mais 
une droite avec un point de départ, un 
angle et une longueur. 


Le principal avantage d’un tel systè- 
me est qu'en utilisation normale, 
(soit en dessin), le logiciel affiche en 
90 ppp (la résolution de l'écran), 
mais que lors de l'impression, il 
recalcüle entièrement l’image de 
manière à produire une sortie parfai- 


X 0640.00 Y 0441 00 + 0001 00 + 0001 00 L 0000.00 4 0000 O0 | | 


Une image vectorielle 


















te (jusqu'à 1440 points par pouce de 
définition). 


Les outils sont à peu près les 
mêmes qu'en bit-map, hormis les tri- 
angles et parallélogrammes 3D qui 
sont absents. Par contre, le mode 
texte est encore plus puissant puis- 
qu'il permet l'alignement à gauche, 
à droite, le centrage ou la justifica- 
tion. Il peut même utiliser une police 
différente de celle affichée pour 
l'impression (cas des fontes 
Signum, avec plusieurs résolutions). 
Seuls regrets, l'absence de fontes 
vectorielles, et surtout des courbes 
de Bézier qui constituent tout de 
même aujourd'hui un “passage obli- 
gé” lorsqu'on parle de “vectoriel”. 








directement à partir de ce mode 
Malheureusement, dans l’autre 
sens, la vectorisation de dessins 
n'est pas offerte (elle demande 
d'énormes calculs, mais peut-être 
dans une future version..….), seul le 
transfert de bloc est possible, pro: 
duisant un simple objet. 


IMPRESSION 


A ce jour, Arabesque peut gérer les 
9 et 24 aiguilles (EPSON FX80 
STAR NL10, NEC P6/P7...), les 
compatibles HP LaserJet (y compris 
la DeskJet) et la laser SLM 804 
Dans le cas d'une imprimante & 
aiguilles, vous pouvez vous-même: 
la paramétrer grâce à une partie di 
mode d'emploi. 


Avant le lancement de l'impression 
le positionnement de l'image sur le 
page est possible de manière : 
regrouper plusieurs écrans. Et enfin 
une rotation de 90 degrés permet de 
choisir son orientation. 


COMPATIBILITÉ DES FICHIERS 


Hormis les deux nouveaux formats 
qu'introduit ce logiciel, sont implé 
mentés Degas (y compris en com 
pressé), Doodle, Draw 3, Neochro 
me, Stad, Star-Painter, ainsi que le: 
IMG, GEM et IFF (Amiga). Bonne 
nouvelle pour les utilisateurs de 
Publishing Partner Master, puisqu'ils 
trouveront sur la disquette un pilote 
d'importation Arabesque. 


Nous avons tenté, en ces quelque: 
lignes, de faire un tour complet de: 
énormes possibilités d’'Arabesque 
mais ce dernier vous réserve dé 
nombreuses découvertes et de 
longues heures d'utilisation. Ur 
grand applaudissement aux déve 
loppeurs de ce produit, qui ont réal 
sé cette fois un regroupement inédi 
et réussi de deux catégories de logi 
ciels de dessin. 


c Sébastien Mougey 
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Les logiciels de traitement 
de l’image ne sontpas 
légion sur le ST. Pourtant, 
cette année, au Cebit, 
quantité de tels produits ont 
été présentés, tant pour 
l’image monochrome que 
couleur. La faiblesse 
graphique du ST étant ce 
qu'elle est, la plupart de ces 
nouveaux programmes 
nécessitent une carte 
graphique pour donner le 
meilleur d'eux-mêmes. 
Retouche, distribué par 
ALM, permet le travail sur 
l'écran monochrome sur ST, 
à l’aide du tramage, un 
artifice qui permet de 
simuler les niveaux de gris. 
Voyons donc ce qu'il en est. 


La chaîne de microédition éditoriale 
ne saurait être complète sans un tel 
logiciel. En effet, il est rare que 
toutes les photos soit homogènes 
au niveau contraste et luminosité, 
ou que certaines ne présentént pas 
de défaut, tels des points blancs 
dans les zones noires, ou vice 
versa. C'est donc l'objet d’un pro- 
gramme comme Retouche que 
d'assurer toutes les corrections pour 
que l’image imprimée soit parfaite. 
Ce qui n'empêchera personne de 
l'utiliser dans une optique plus créa- 
tive, grâce aux nombreux effets spé- 
ciaux proposés. 


LE PACKAGE 


En cette période estivale, les vali- 
settes sont de saison, et c'est dans 
un tel emballage que vous découvri- 
rez Retouche, après un allègement 
de près de 1.500 F. Les disquettes 
sont dans une enveloppe marron, 


AN Fichier BOSS Mode dessin 
Crayon 
Craie 
Pinceau 
Tanpon 


Rectangle 
Remplir 


DA DA RDA IA DANS 


ds Bloc(!) 
nn, Loupe 








L'interface de travail 
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ETOUCHE 





information qui journalistiquement 
ne présente aucun intérêt. En 
revanche, vous trouverez sur ladite 
enveloppe un numéro de série que 
vous communiquerez à ALM, le dis- 
tributeur, pour recevoir les indispen- 
sables accessoires du programme. 
En effet, ces derniers sont sériali- 
sés, et ce n’est qu’une semaine plus 
tard que vous les recevrez, directe- 
ment issus d'Allemagne. La solution 
est un peu lourde, et ALM est sur le 
point d'y trouver une alternative 
moins pénalisante. 


Outre le programme, les quatre dis- 
quettes comportent plusieurs mil- 
lions d’octets d'images compactées, 
qui servent de base de travail au 
tutoriel, un manuel de près de ceni 
pages extrêmement bien fait. || pré- 
sente exhaustivement toutes les 
possibilités du logiciel au travers de 
nombreux exemples, et complète, 
par ses explications le manuel de 


Paran, Effets Option * 





a » L 


référence. Hélas ! la qualité de la tra-, 
duction rend parfois les explications 
un peu confuses. Mais celui qui 
connaît le traitement de l’image navi- 
guera sans problèmes au travers 
des quelques dérives syntaxiques. 


Avant de quitter le magasin, la vali- 
se à la main, demandez quelques 
explications sur le décompactage 
des fichiers, car il n’en est dit mot 
dans la documentation, l'éditeur 
supposant que la manipulation du 
décompacteur ARCHIVE fait partie 
de la culture générale de chacun. 


L'INTERFACE 


Si les interfaces d'Outre-Rhin sont 
souvent en dehors des normes de 
convivialité auxquelles nous tenons, 
force est de reconnaître qu'hormis 
quelques maladresses de peu 
d'importance, la prise en main est 
plutôt immédiate, mais ne dispense 
nullement d'une lecture attentive des 
manuels. La finesse des corrections 
permises, les règles du jeu qui 
S’appliquent aux boutons gauche et 
droit de la souris, l'ensemble des rac- 
courcis-clavier et l'influence des 
touches Shift, Control et Alternate sur 
les commandes ne se devinent pas. 


L'écran de travail présente dans sa 
partie inférieure une longue barre 
qui contient la palette des gris, ou 
plutôt la palette des trames de gris. 
Le logiciel ne fonctionne qu’en 
monochrome, et c'est à la rentrée 
qu'une version Pro offrira les cou- 
leurs (256) et donc les niveaux de 
gris: Pour l'instant, seul un acces- 
Soire “hard” permet une représenta- 
tion à la fois tramée et colorée sur 
un moniteur couleur. Cette palette 
comporte deux curseurs, l'un asso- 
cié aux outils de dessin, l’autre à la 
gomme (le niveau de gris qui appa- 
raît lorsque l’on efface une partie de 
l'image). On les positionne à la sou- 
is, Où plus pertinemment en “captu- 
rant’ une teinte dans l’image à l’aide 
d'un Shift-Clic. 


LES FICHIERS 


Retouche ajoute encore un format 
de fichiers à une collection déjà bien 
étendue. Le format RTC Sauvegarde 
l'image à la résolution de 640x400, 
après l'avoir compressée. En impor- 





En mode Dessin, le trait recouvre toute 
l'image, les teintes plus claires ou plus 
sombres que le fond, toutes les teintes 
sauf le fond, et enfin, le fond seul. 


tation, c'est la totalité des formats 
Degas, plus ceux de Néochrome, Art 
Director, Stad, Doodie et Print Tech- 
nic qui sont reconnus. Les couleurs 
sont transformées en niveaux de gris 
selon trois méthodes. Les deux pre- 
mières donnent des résultats réa- 
listes, tandis que la dernière est plus 
fantaisiste, et sera donc réservée à 
la création artistique. Curieusement, 
le TIF, format quasi universel des 
images à niveaux de gris (et couleur 
dans sa version 5) ne fait pas partie 
de cette liste. Rassurez-vous (mais 
étiez-vous réellement inquiets ?), il 
est cependant reconnu en tant que 
bloc (sa taille ne doit cependant pas 
dépasser les 640x400). 


L'exportation nous propose les 
mêmes formats (avec la même 
curiosité pour le TIF), mais aussi 








l'IMG. Nous avons poussé la curiosi- 
té jusqu'à placer un fichier TIFF 
dans PageMaker 3, sur un PC, et 
cela marche d'ailleurs très bien. On 
pourrait même, si ce n'était la limita- 
tion de taille, envisager d'employer 
le couple ST/Retouche pour traiter 
l'image, de manière très écono- 
mique, dans un contexte éditorial 
sur PC ou Macintosh. 


Les accessoires d'impression n'étant 
pas disponibles, et non francisés de 
toute manière, nous ne pouvons por- 
ter de jugement à leur égard. Atten- 
dons la rentrée de septembre pour 
les tester, avec, pourquoi pas, la ver- 
sion professionnelle. Le seul qui est 
fourni d'office concerne les impri- 
mantes 9 aiguilles. Les autres sont 
dédiés aux 24 aiguilles, aux lasers 
PostScript (avec sortie de fichiers 
EPS), Hewlett-Packard (et compa- 
tibles) et Atari (SLM804). Le report, 
au niveau des accessoires, des 
fonctions périphériques - impression 
et numérisation - est tout à fait judi- 
cieux. || permet, non seulement, de 
garder au programme une taille rai- 
Sonnable, mais aussi d'éviter 
d'incessants changements de ver- 
sions au fur et à mesure de l’appari- 
tion de nouveaux matériels. 


LA CORRECTION DE L'IMAGE 
Il existe un accessoire, que nous. 


n'avons pas eu, qui permet de 
numériser directement depuis le 


logiciel avec le scanner couleur 


d'Epson, le GT4000 (d’autres sont 


Travail sur une image peu contrastée pour faire ressortir le personnage, sans 
procéder à un défourage, qui élimine le fond 
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ETES dt 


Contraste 








Adoucir 2 


Grossier 


en préparation). Sinon, on peut 
employer un digitaliseur vidéo ou 
charger une image issue d’un logi- 
ciel de dessin. : 


On distingue trois niveaux de cor- 
rection. Ils s'appliquent à l'intégralité 
de l’image, à un bloc ou à une zone 
non masquée (le masque, est-il 
nécessaire de le préciser 7... est un 





Miroir vertical 




















Image d'origine 











masque qui protège certaines par- 
ties des modifications !). 


Le premier niveau s'applique à 
l'image en général, et vise à ajuster 
la luminosité et le contraste. Si la 
fenêtre de dialogue appropriée pro- 
pose deux curseurs pour cela, elle 
offre aussi un réglage via l’ajuste- 
ment de la courbe Gamma, qui défi- 


Are 











ei 1" 
Miroir horizontal 


nit comment doit être transformé 
chaque niveau de gris. En l'absence 
de toute correction, c'est une droite 
ascendante, inclinée à 45° vers le 
droite. Un basculement vers l'hori- 
zontalité ou la verticalité corresponc 
à une diminution ou un accroisse- 
ment du contraste, tandis qu'ur 
déplacement de la droite vers le coir 
supérieur gauche ou le coin inférieu 








SUPERCHARGER 


L'émulateur PC pour Atari ST 





Supercharger est la référence en matière d’émulation 
PC. Il se présente sous la forme d’un boîtier externe 
de très belle qualité ne nécessitant aucune interven- 
tion à l’intérieur de votre ordinateur, vous ne perdez 
donc pas votre garantie. Celui-ci s’installe en quel- 
ques instants et vous permet d'utiliser la plus grande 
partie des logiciels pour compatibles, et ce à une vi- 
tesse très largement supérieure à celle d’un PC XT. De 
plus, du fait de sa conception, il devient très vite un PC 
transportable d’un ordinateur Atari à l’autre”: 





DESCRIPTION : 
> Processeur Nec V-30 cadencé à 8Mhz 
512 Ko de mémoire vive (extensible à 1Mo) 


LE SEUL À VOUS PROPOSER 
Un MS-DOS® 4.01 en français 


» Une fonction HOTKEY vous permettant de basculer 
entre le monde PC et Atari par une simple combinaison de 
touches) et cela sans perdre l'application en cours sous 


MS-DOS 
> Un RAM disque qui s'installe sous TOS, qui résiste au 


Emulation CGA, Hercules 


Connection sur le port DMA (disque dur) sans 
monopoliser l'accès 


> 

> Support de co-processeur arithmétique 8087 
> 

> 


Compatibilité Hypercache 
Emulation à 100% des ports parallèle et série 


\{ à 


(>-19200 bauds) 


> Installation sur tous les disques durs, gérant 
simultanément sous MS-DOS 18 partitions 


> Reconnaissance d’un lecteur externe 5”1/4 ou 
31/2 


> Indice Norton 4.2 

>» Test de performances Norton : 
-Pc-xt(8088)4.77Mhz: 100% 
-SUPERCHARGER: 297% 


> Reconnaissance automatique des formatages 
disquette et disque dur Atari® (facilite les trans- 
ferts) 
| > |mpression sur toutes les imprimantes parallèles 
ainsi que sur Laser Atari 


| > Livré avec un driver pilotant la souris Atari 


Reset, qui s'utilise aussi bien sous Atari que sous MS-DOS 
et conserve les données lors du Switch entre PC et ST 


»>Un RAM disque qui s'installe sur Supercharger 
utilise la mémoire de l'émulateur et résiste au Reset 


»>Un fonctionnement parfait sur tous les Atari ST® , 
STE® , Mega ST® , STACY® et TT® (testé!) 


> Une TOOLBOX 


En fait, des outils de développement qui vous permettent 
sous Atari de programmer Supercharger et de faire 
cohabiter en calcul le 68000 du ST et le NEC V30 de 
l'émulateur: une excellente approche de la programmation 
parallèle 








En vente chez tous les bons distributeurs. Supercharger est un produit BETA System 


A L. M. 1, Rue Pierre Dup ont — 93200 Saint-Denis re 
… Tél/ Fax: lé() 42. 43.36.95 
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“droit l'assombrit ou l'éclaircit. Cela paraît compliqué, 
mais c’est logique puisque les abscisses représentent 
les gris de départ, et les ordonnées les gris d'arrivée. 
Par exemple, si la droite occupe l’autre diagonale, cela 
signifie que le blanc (0) donne du noir (255), et inverse- 
ment. Ce qui correspond à une inversion de l'image qui 
passe en négatif. 


La correction ne s'effectue pas en direct, aussi un bou- 
ton Test permet de juger du résultat avant la validation 
par OK. On peut sauvegarder quatre courbes dans les 
Préférences, où indépendamment sur disque. 


Le deuxième niveau vise à corriger l'image dans son 
apparence, pour la rendre plus ou moins subjective. Les 
effets vont de la simple augmentation du contraste à l’attri- 
bution d’une texture toilée. Nous avons, chanceux que 
vous êtes, représenté tous les effets du logiciels pour 
Vous épargner une fastidieuse énumération descriptive. 
En revanche, vous n'échapperez pas au buffer Undo. 
Vous vous doutez bien que corriger une image est sou- 
Vent une succession d'essais, et qu'il est bien agréable de 
‘pouvoir revenir à l'image de départ si une tentative s'avère 
infructueuse. À cet effet, le logiciel, si la mémoire le per- 
met, installe un tampon de 256 K, dans lequel vous pou- 
vez sauvegarder l'image avant toute modification (dans 
certains cas, cette sauvegarde est lancée automatique- 
ment) par appui sur la barre d'espacement. La touche 
Undo intervertit les deux images, ce qui permet de com- 
parer rapidement la version initiale et celle corrigée. 


Les corrections des deux premiers niveaux s'appliquent 
aussi à la partie de l’image non masquée, ou à un bloc 
(délimité à la souris). 


| Le troisième niveau correspond à des modifications 
locales, qui permettent de mettre en valeur une partie de 
limage ou d'apporter des changements créatifs. Pour ce 
faire, on dispose d'outils de dessin, comme le Crayon, la 
Craie, le Pinceau ou bien le tampon, qui permet de simu- 
ler les trois outils précités. Le menu Paramétrage en 
assure le réglage. 


D'autres outils, comme la Goutte d’eau ou le Doigt, per- 


mettent respectivement d'estomper ou d'étaler des 
teintes. Là aussi, le paramétrage assure une action plus 
où moins efficace, pour un niveau de correction plus ou 
moins subtil. Le Rectangle assure, en outre, la produc- 
tion de dégradés. On passera très vite sur la fonction de 
remplissage pour s'attacher aux blocs. Leur définition et 
redimensionnement sont on ne peut plus traditionnels. 
En revanche, la copie et le déplacement donnent des 
effets différents selon la combinaison de touches 
employée. Ainsi, avec Control, les valeurs de gris du 
blocs sont-elles soustraites de celles de l'image, tandis 
qu'avec Alternate, c'est la valeur moyenne des pixels 
Correspondant du bloc et de l'image qui est retenue. Il 
existe d'autres combinaisons qui permettent de moduler 
les effets. On le voit, tout semble possible et il est vive- 
ment conseillé d'expérimenter à fond les effets pour 
Savoir, en fonction de chaque cas de figure, quel outil 
où quelle combinaison d'outils est le plus approprié. 


OÙ COMMENT RELIER 
VOS ORDINATEURS 
SOUS ETHERNET 


Le réseau Biodata, c'est avant tout un partage de 
ressources, Une mise en commun de fichiers et une 
seule mémoire de masse pour un ensemble 
d'utilisateurs. 

Biodata, c'est ensuite une convivialité, une souplesse 
d'utilisation et une rapidité de transfert (10MBit/s) 
Biodata, c’est enfin le moyen d'intégrer un ordi- 
nateur Atari à tout réseau hétérogène fonctionnant 
sous Ethernet (PC, Unix...) 


— Jusqu'à 254 utilisateurs 
Serveur | — 2048 MB max. sur disque dur 


— Poste dédié ou non 
MS-DOS | _ Possibilité de multiplier les 


serveurs en parallèle pour un 
gain en fiabilité 


| — Jusqu'à 4 utilisateurs 
Serveur | — 16 MB max. sur disque dur 


ATARI — Poste non dédié 


— Un seul serveur possible 


Sous mode Atari 
— 8 Ko de buffer 


Je — NSS, Boîte aux lettres, 
Utilisateur | sbocler 


ATARI Sous mode Unix 
— 32 ko de buffer 
— TCP/IP, Autoboot possible 
— NSS, Boîte aux lettres, 
Spooler 


— Utilisateur | — 8 ko de buffer 
= MS-DOS | - NSs 





___ DEC Net — NFS/SUN — Novell 
Fassereile Unix — Macintosh — etc. 


Biodata et Bionet sont des marques déposées de Biodata GmbH. 
Toutes les autres marques citées sont déposées por leurs propriétaires respectifs 
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Le réglage du tampon et la boîte d'édition de sa forme. L'option Recouvre 
définit à quels niveaux de gris s'applique l'outil. Les surfaces claires ou 
sombres sont définies par rapport à la couleur du fond (celle qui apparaît 


lorsque l'on utilise la gomme). 


Si l'emploi de la gomme laisse appa- 
raître la couleur du fond, son usage 
avec l'option Restaurer est très 
spectaculaire, puisque ce qui rem- 
place les parties effacées est pris 
dans le buffer Undo. Cela ouvre la 
porte à des effets des plus réussis. 


LE MASQUAGE 


La pose d'un masque est manuelle 
ou automatique. Dans le premier 
cas, on passe en mode Masqueur. 
Le bouton gauche trace le masque, 
et le droit l’efface. Clair et net. Si on 
encadre une partie de l'image, un 
Shift droit-Clic permet de remplir la 
surface ainsi délimitée pour en faire 
un masque plein. Le mode automa- 
tique est plus subtil, puisqu'il consis- 
te‘à masquer les parties de l'images 
selon des critères particuliers : plus 
clair-ou sombre que la couleur du 
fond, par exemple. Comme il est 
parfois plus facile de masquer la 
zone à traiter, que celle à protéger, 
une fonction “Inverser masque” faci- 
lite le travail. 


On peut ainsi placer des masques 
discontinus et faire de la microchi- 
rurgie correctrice, voire pallier aux 
fonctions absentes. Par exemple, 
sur Macintosh, on trouve une fonc- 
tion Déparasiter, qui consiste à net- 
toyer les surfaces blanches de 
“bétouilles” noires, correspondant à 
des minis-taches. En combinant 
l'option Masque avec d'autres fonc- 


tions, on pourra débarrasser les 
aplats de blanc des taches noires 
(ou l'inverse). 


LA CRÉATIVITÉ 


La créativité, c'est employer tous les 
outils et fonctions, non pas pour resti- 
tuer l'image dans toute son objectivi- 
té, mais, au contraire, pour en créer 
une nouvelle en dehors des contin- 
gences du réel, selon les impératifs 
flous du rêve et de l'imaginaire. 


Outre la débauche fonctionnelle 
déjà examinée, Retouche, via le buf- 
fer Undo, permet de mélanger deux 
images différentes, avec un réglage, 
en pourcentage, de cette fusion. 
Une fonction similaire, Evaluer, per- 
met de réaliser des estompes pro- 
gressives de l'image (lorsque le buf- 
fer Undo contient un Dégradé). Le 
manuel d'apprentissage est 
d’ailleurs une mine d'or qui explique 
les mille et uns usages du logiciel, 
comme par exemple l'incrustation 
d'une image dans le contour d'une 
lettre (si le logiciel n'offre pas de 
fonction Texte, on pourra néanmoins 
employer des fichiers TIF, fournis 
sur les disquettes, qui correspon- 
dent à plusieurs polices). 


CONCLUSION PROVISOIRE 
Malgré la profusion, le testeur 


jamais satisfait trouvera toujours à 
redire. Il existe deux ou trois fonc- 
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tions que l’on aimerait voir. Tout 
d'abord, la définition d'un masque 
par courbes de Bézier serait plus 
précis et efficace qu'un simple tracé 
à main levée. Enfin, si la copie d'un 
bloc s’accompagnait d'une sorte 
d’anti-aliasing, afin que le bloc se 
fonde dans son nouveau décor sans 
attirer l'attention, notre bonheur 
serait complet (voyez la couverture 
du dernier ST Mag et vous com- 
prendrez l'utilité de la chose). 


En fait, les principales limitations 
résident dans le mode d'affichage 
standard du ST, qui est loin de satis- 
faire tous le monde. Un écran à véri- 
tables niveaux de gris est un confor 
quasi indispensable pour employer 
au mieux Retouche, dont cette pre- 
mière version nous a surpris par 
l'étendue des possibilités. Auss 
attendrons-nous la version Profes- 
sionnelle, prévue pour la rentrée 
pour porter un jugement définitif 
Nous en profiterons aussi pour éva 
luer les fonctions d’impressions 
Mais d'ores et déjà, l'examen es 
réussi. et avec mention. 


Laurent “L.K.” KATZ 


3615 JESSICO 
CPC-ST-PC-AMIGA 


ACTION D'ENFER 
LES GEN D'OR . 
LES JUSTICIERS 


OCEAN 5 STARS . 
PRECIOUS METAL 
SIMULATION HITS 
STAR WARS TRLOGY 
SUPER QUINTET 
ALPHA WAVES, 
ANTAGO. on 
BANGKOK KNIGHT 
BAT + CARTE " 
BATTLE OF BRITAIN 
BATTLEHAWKS 
BATTLE MASTER 
BLACK TIGER 

BLADE WARRIOR 
BLOCK OUT 

BOMBER 
BLOODWYCH . 


BLOODWYCH DATA DISK 


BLUE ANGEL , 


CABAL : 
CARMEN SAN DIEGO. 
CASTLE MASTER... 
CHAOS STRIKES BACK 
CHUCK YEAGER 2 0 
COLORADO 

COMBO RACER 
COosMOs + 
CRACK DOWNS. 
CYBERBALL 

DAN DARE 3 

DARK SAT... 
DOUBLE DRAGON 2 …. 
DRAGON BREATH 


2 


," * Quand 


249 supen WoNDER8OY 
TENNIS CUP 
289 THE STRIDER 
THE THIRO COURIER 
TURRICAN 
ULTIMA V 
389 ULTIMATE DARTS 
2849 ULTIMATE GOLF 
239 VAUX 
239 VENUS. 
VROOM 
WARHEAD 
WATERLOO 
WILD STREETS 
249 29% WORLD CUP SOCCER 
X OUT 
XENON2 MEGABLAST 
XIPLOS 
2e Hi ZAC MAC CRACKEN 
289 
239 


nil ALLEMAND 4/36 4 
ALLEMAND PRIMAIRE 
299 259 ANGLAIS PRIMAIRE 
ESPAGNOL PRIMAIRE 
9 ITALIEN PRIMAIRE 
219 219 HISTOIRE PRIMAIRE 
339 SCIENCE PRIMAIRE 
239 PLANETE CONNAISSANCE 
309 ANGLAIS 4/3e 
289 229 ANGLAIS CONFIRME 
ANGLAIS DEBUTANT 
242 ANGLAIS PERFECTION. ler 
259 239 ANGLAIS PERFECTION. 2e 
229 ANGLAIS POUR LE BAC 
339 ANGLAIS TOP NIVEAU 2/ 1er 
229 APPRENDS MOI A LIRE 1 
239 192 APPRENDS MOI A LIRE 2 , 
229 192 BALADE À ZOLOGNE 
BALADE A SEVILLE 
239 192 BALADE A BIG BEN V3 


. 





= 


EDUCATIFS 


75 102 PROGRAMMES PC 
75 CLEFS POUR PC (DOS 3.3) 
109 CLEFS POUR PC/AT 
480 COMPAGNON DU DISQUI 
* 25 DOMPTEZ VOTRE SOURIS 
GUIDE PETER NORTON 


AEGIS ANIMATOR . 
AEGIS AUDIOMASTE 
AEGIS DRO 2000 

0 AEGIS IMPACT . 

AEGIS SONIX 

AEGIS VIDEOSCAPE 2D. 
AEGIS VIDEO TITLER 
AMAS 


ANIMATE 3D 1225 PHASOR ONE (+ MONTRE) . 


COMIC SETTER . 825 
Copleur SYMCHRO Hxproes 495 


BECKER TEXT2 
CALAMUS 
CALCOMAT Il 


CALLIGRAPHEUR PR 
CLAVISSIMO . . 280 
Copieur SYNCHRO Express 495 
CRAFT 2 y “ 


DATAMAT 
DELUXE MUSIQUE 
DELUXE PAINT 
DELUXE VIDEO 


125 
85 


SUPER JEUX PC+COMP! 
BIEN DEBUTER PC 1512. 


99 LE LIVRE DU BASIC 2, 


CYBER PAINT 2. 


DESIGN 3D 
DIGIPAINT Il 


135 ASSEMBLEUR 68000 
109 ATARI ST EFFICACE . 

125 ATARI ST EN ACTION 

145 ST EN FAMILLE - BASI 


. 825 
2350 
. 475 


KONIX SPEED IONG 
KONIX SPEED KING AUT! 
KONIX THE NAVIGATOR . 


EASY GEM mm 205 


FACT,+ STOCK F FANTAVISION 


BALADE PAYS DE BIG BEN 6/$e, 


FLEXIDISC …… 
FLEXIDUMP 

FM MELODIE 

FUN FACE mn J95 
GESTION BUDGET PERS... 
GESTOCK 90 .… 

GFA ASSEMBLEUR . 

GFA BASIC 3.0 

GFA COMPILATEUR 3.0 
GRAPHIC CITY... 

HARD DRIVE TOOL KIT 


GFA BASIC 
GRABBIT 
HANDYSCAN. GENIUS 
INSTANT MUSIC 
KNG WORDS 20, 
K SEKAASS 
MASTER SOUND . 
MAXIPLAN 500 
MAXIPLAN + 
MCC PASCAL 2 
MODELEUR 3D 


. 725 


JOYSTICK CHEETAH PC.., 
PC 


149 
179 
RAR... 339 


BASIC ST METHODE PRATIQU 
CLEFS POUR ATARI ST 195 
CLEFS BASIC GFA 2 ET 3 SUR ST, 135 
MUSIQUE SUR ATARI ST . 

PEINTRE ET MUSICIEN SUR ST . 
PROGRAMMER EN BASIC ST. 125 
SUPER JEUX ATARI ST BASIC GFA , 140 
BIEN DEBUTER AVEC ST/STE . 

BIEN DEBUTER GFA BASIC 249. 





775 RUBAN CMIZEN 1200. 


BOSSE DES MATHS 1er 

239 192 BOSSE DES MATHS 2e. 
289 289 BOSSE DES MATHS 3e 
BOSSE DES MATHS de 

242 BOSSE DES MATHS 5e. 


T5 RUBAN EPSON MX-80. 
+ 310 RUBAN DMP 2000/2160. 
+ 475 RUBAN DMP 3000/3160. 
+ 875 RUBAN DMP 4000 
1325 RUBAN STAR NL 10 . 


DRAGON FLIGHT 
DRAGON SPIRIT 
DRAKKHEN ….. 
DRIVIN FORCE 
DYNASTY WARS … 


HORLOGE TIMEKEEPER 
HOTWIRE … 
INTERPRETEUR C 2 

K SPREAD 4 . 


MUSIC STUDIO 
PACK GFA BASIC . 
PAGE FLIPPER . 
PAGE FLIPPER + 


DYTER 07 $ 

EAGLE S RIDER 
E-MOTION sai 
ESCAPE FROM PLANET 
F29 . Paie 
F15 STRIKE EAGLE 2 
FALCON # 
FALCON MISSION DISK 
FATAL GRAVITY 
FIRE AND FORGET 2 
FLOOD 
GHOSBUSTERS 2 
GRAVITY 

GREAT COURTS 
HAMMERFIST 

HARD DRIVIN 
HAHRICANA 

HEAVY METAL 

HEROES QUEST. 

HIGWAY PATROL 2 
HILLSFAR 

HOT ROD 

ICE YACHIS 
IMPOSAMOLE 
INFESTATION 

INTER 30 TENNIS 

ITALY 1990 

IVANHOE 

KICK OFF ‘ 3 
KICK OFF : PROLONGATIO 
KID GLOVES % 
KNITGHT FORCE 

LE MANOIR DE MORTEVIL 
LIVERPOOL É 
LODE RUNNER. 

LOST PATROL 
MANCHESTER UNITED 
MATRIX MARAUDERS 
MAUPITI ISLAND 
MINDWINTER, 
NEVERMIND 

NINJA SPIRIT. 

NINJA WARRIORS à 
OCEAN BEACH VOLLEY 
(OPERATION STEALTH 
PINBALL MAGIC 
PIPEMANIA 

PIRATES 

PLAYER MANAGER …. 
POPULOUS 

POWER BOAT 
PROJECTYLE 

RAINBOW ISLAND 

ROCK STAR . . 
SHADOW WARRIORS 
SHERMAN M4 


SPACE HARRIER 2 
SPIDERMAN 

STAR BLADE, 
STARLIGHT 

STRYX 


23 


329 


239 
239 
239 
192 


: 239 


242 
239 
229 
179 
149 
239 
192 
179 
192 
192 
192 
192 
192 
192 


. 279 


289 
192 
239 
192 
192 
289 


192 192 


259 
259 
259 
239 
239 
242 


: 192 


239 
192 
239 
289 
239 
192 
239 
239 
259 
239 
239 
192 


2 
9 239 239 


BOSSE DES MATHS 6e 
CALCUL PRIMAIRE 
FE is CODE FACILE... 
229 192 ECRIRE SANS FAUTE V 
229 ECRIRE SANS FAUTE Vi 
EDUC-MATERNELLE 1 
EDUC-MATERNELLE 2 
192 EDUCPRIM. CALCUL CI 
ENGLISH FOR Re - 
ENIGME À MADRID 4e 3e 
2 es ENIGME À MUNICH 4e 3e 
ENIGME À OXFORD 4e 3 
FRANÇAIS CM.… é 
239 FRANÇAIS SONS CP/CE 
539 GÉOMÉTRIE PLANE. …. 
239 192 GRAMMAIRE 6/5e 
LECTURE CP 
MATHS er 
239 MATHS 20 
MATHS 3e 
MATHS 5e … 
239 oo MATHS 6e 
239 239 MATMSCE 
192 MATHS CM... 
23 MICRO BAC ALLEMAND 1/TER 
242 MICRO BAC ANGLAIS 1/TER 
539 MICRO BAC ESPAGNOL {/TER 
329 MICRO BAC FRANÇAIS 1/TER 
259 MICRO BAC GEO 1/TER 
MICRO BAC HISTOIRE 1/TER 
239 MICRO BAC MATHS B 1/TER, 
239 192 MICRO BAC MATHS C4 1/TER 
259 259 MICRO BAC MATHS D 1/TER... 
MICRO BAC PHYSIQUE/CHIMIE. 
192 MICRO BREVET ALGEBRE. 
MICRO BREVET FRANCAIS. 
230 MICRO BREVET GEOGRAPHIE 
239 MICRO BREVET GEOMETRIE 
MICRO BREVET HISTOIRE 
MULTICOURS 3e 
329 MULTICOURS 4e 
239 192 MULTICOURS 5e 
239 MULTICOURS 6e 
199 ORTHOGRAPHE CM... 
239 TOP NIVEAU ANGLAIS 2/1er 
VISA POUR HYDE PARK 6e 
192 


Po ns PRIX BUDG 


239 ACTION SERVICE 
259 ARCHE CAPTAIN BLOOD 
239 239 ARTIFOX 
229 239 BARBARIAN 
BARD'S TALE 1 
239 BIONIC COMMANDO 
239 239 8080 
239 DEEP SPACE 
239 EMPIRE 
289 269 FAST FREAK 
FUSION 
192 HOSTAGES 
LEADERBOARD 
239 LEGACY OF THE ANCIENTS 
259 MARBLE MADNESS 
259 239 MUSIC CONSTRUCTION SET 
OUT AUN 
192 PHM PEGASUS 


339 


192 


239 


DISQUETTE NETTOYAGE 3.50’ 


LE COMPTAB 
LE GESTIONNAIRE . 
L'ELÉCTRONICIEN < 
LE REDACTEUR 1.9 . 575 
MASTERSOUND sm 435 
MENTEL mem 485 
MULTIDESK em 390 
PACK ANTIVIRUS ST... 199 
PACK GFA BASIC 3.0... 775 
PRINT MASTER+ . 350 
PROFIMAT . . 470 
PROSCORE 1675 
QUARTET mms 495 
PAOTOS meme 280 
REVOLVER mn 425 
SPACK mmmmennennnmmnm 480 
SCRABBLEUR rer 280 
ST COMPTES mm 290 
ST REPLAY V.4,10 FR... 090 
ST REPLAY PRO … 1375 
STOS BASIC mm 3B3 
STOS COMPILER sm: 249 
STOS MAESTRO mn 209 
STOS MAESTRO+.......… 899 
STOS MUSICIEN mm: 218 
STOS SPRITES. um 179 
SUPERBASE .…..… 595 
SUPERBASE 2 mm 890 
SUPER TOOLKIT NH. 199 
. 345 





WORD UP 2.4..mmmmme 078 
me 2835 
. 580 
. 475 
ZZ DRAFT smmmmemme 393 
ZZ IDE memmmmnmennmn: 495 
ZZ LAZY PAINT.…. 
ZZ ROUGH 


CUS 1e] 1e) 


SUPERBASE Pro+Dév. S 


BECKERCALC 2+SUPERBASE 2. 


COPIEUR SYNCHRO EX 
Pack GFA Basic+Compil 
STOS BASIC .… 

STOS COMPILER 
STOS MAESTRO 

STOS MAESTRO#+. 
STOS MUSICIEN. 

STOS SPRITES 


PAGE SETTER . 
PERFECT SOUND 3. 


.- 750 

. B50 

1175 
1175 
. 625 

PRINT MASTER+ 

PRO WRAITE … 

PRO SAMPLER STUDIO 

STUDIO 24 

SUPERBASE 

SUPERBASE PRO 

SYNTHIA . 

TEXTCRA 

THE CALLIGRAI 

TRACK 24 


D 
VIDEO GENERIC MASTE 
VIDEO WIPE MASTER. 


RUBAN STAL LC10 
RUBAN SM804 . 


59 TRUCS ET ASTUCES ATARI ST D. 


D housses | mes 
102 PROGRAMMES AMIGA 


375 Housse complète ciaviertécran 
Nr HOUSSE PC 1512 COUL./MONO 





AMIGA EN FAMILLE … 
BASIC GFA SUR AMIGA 


109CLEFS POUR AMIGA N.ED. 
TOL'AMIGA EN ACTION …, 


7SLIVRE DE L'AMIGA BASIC 


COPIEUR SYNCHRO EXPRESS 


- Système de duplication de disquettes en moins de 


30 secondes. 


— SYNCHRO EXPRESS nécessite un deuxième 


lecteur. 


— Sélection par menu des débuts et fins de pistes 
{jusqu'à 85 pistes), une ou deux faces, autosélect. 
— Duplication d'autres formats tels IBM, MAC, etc. ‘ 


PROBABLEMENT LE MEILLEUR COPIEUR ! 


SYNCHRO EXPRESS ST 


SYNCHRO EXPRESS AMIGA 


avec si 


UPERBASE... 


PRESS 
+As.3 


BOITIER DD50L 
BOITIER DS100L 
BOITIER DS40LB 
BOITIER JSY80 


errure + clé 


1  50x5.25" 
100%5.25" 
40x3.50" 
80x3.507 


369 F 
369 F 


BOITIERS DE RANGEMENT 


119 
149 
89 
99 


LIVRE LECTEUR DISQUETTE+D, 
LA BIBLE DE L'AMIGA .. 
LA BIBLE DE L'AMIGA + 


LIVRE SUPERBASE {V. PRO) 

LIVRE DU GFA BASIC AMIGA 49 
LIVRE DU GFA BASIC AMIGA +D . 249 
LIVRE DU LANGAGE MACHINE … 199 
TRUCS ASTUCES AMIGA - VI … 129 
TRUCS ASTUCES AMIGA + V.I4D .. 220 


COPY HOLDER … 189 
FILTRE ECRAN 14" Coul.… 109 
FILTRE ECRAN 14° Monoc. " 
SUPPORT IMPAIM. 80 C 

SOURIS GENIUS AMIGA 


GENISCAN GS4500 AMIGA. 


GENISCAN GS4500 IBM. 
INTERFACE MIDI AMIGA 


LECTEUR INT.3.50" ST 
LECTEUR EXT,3.50° NEC 
CABLE PERITEL ST 
EXTENSION 512K ST. 
EXTAMIGA 512K … 











3" 1/2 DFDD 


5" 1/4 DFDD 


*“ Disquettes certifiées 100% garantie 5 ans. 
Livrées avec enveloppes + étiquettes 
Neutres (Verbatim) 








TOUS LES RUBANS PAR 3 


[_ BOMIER PLASTIQUE 3.50"... 30 F Les dix 
DIGITALISEUR VIDI ST 


JESSICO - B.P 693 - 06012 NICE CEDEX 
PAR MINITEL 3615 CODE JESSICO - OUVERT 7 JOURS SUR 7 


SUPER CARS 


192 192 RACKEM 
— ——"#’— SERVE AND VOLLEY 
D CR CS GS CN CONS CURE CUS GUN OURS CAN UNS OR UNE (UN 


NOUS LIVRONS TOUJOURS LES DERNIERES VERSIONS ; : 
a retourner à 


BON DE COMMANDE £NPR£SS 
D 93.51.61.30 





EXPEDITION GARANTIE PAR COLISSIMO 
GAGNEZ DU TEMPS ! Commandez par 


TITRES (garantie echange immediat } 


Je joins un cheque où mandat-lettre 
Je paye par carte bleu et je complete les 2 lignes ci-dessous 


carte bieue 








— 1 di. TE AMIE ETES ES: 











NOM PRENOM 
NF ET RUE 


VILLE 





PORT LOGICIEL JEUX 18 F 
DOM TOM + ETRANGER 50 F 


CODE POSTAL à à à 1 à 5 


SIGNATURE OBLIGATOIRE 


precisez votre ordinateur K7 BOUTIQUE A NICE HOLLYWOOD STAR 8 BD. JOSEPH GARNIER 












































































































































Vous ne savez pas Twister ? 
Rien de plus simple. 

Après avoir chargé 
successivement deux (ou 
plusieurs) programmes en 


. mémoire dans votre ST, 


passez de l’un à l’autre 
dans le temps qu'il faut 
pour appuyer 
simultanément sur les 3 
touches Shift-G, Shift-D et 
Control. Les utilisateurs de 
Twist savaient déjà, et avec 
Twist 2, édité par la société 
Upgrade, c'est la même 
chose sauf que c'est 
mieux. 


Il n'y a pas effectivement de diffé- 
rence notable de fonctionnement 
entre Twist et Twist 2. Ce dernier 
offre désormais la possibilité de tra- 
vailler avec plusieurs accessoires 
(Twist n’en autorisait qu'un seul), et 
il met à votre disposition un spooler 
d'imprimante. || a par contre simpli- 
fié et amélioré les opérations d’allo- 
cation de mémoire, étendu son 
domaine de compatibilité, amélioré 
sa fonction ram-disque et permet de 
charger jusqu'à 16 applications 
simultanées, en fonction de votre 
mémoire vive disponible. 


Par sa fiabilité, Twist s'était rapide- 
ment imposé comme le principal 
switcher non-dédié sur ST. Faire 
cohabiter plusieurs logiciels dans la 
mémoire, implique une rigueur de 
programmation qu'il assumait avec 
le plus grand sérieux, s’attachant à 





limiter le plus possible les dégâts en 
cas de lâchage d'une des applica- 
tions en activité. || permettait donc 
de bénéficier de toute la puissance 
de travail qu'offre la communication 
instantanée entre deux pro- 
grammes, surtout lorsque celle-ci 
est renforcée par la rapidité de sau- 
vegarde d’un disque-ram. 


VIVE LA MÉMOIRE VIVE ! 


Twist se présente au lancement 
sous deux variantes : Twist 2 qui 
continue à n'accepter qu'un seul 
accessoire, et TwistAc plus géné- 
reux, mais au prix d'une réplication 
en mémoire de ces accessoires 
autant de fois qu'il y aura de pro- 
grammes installés. Pour des raisons 
de même nature, à savoir l’espace 
physique alloué à chaque logiciel, si 
vous installez un disque-ram après 
avoir lancé une application, celle-ci 
ne le reconnaîtra pas. Se présente 
donc d'emblée la question à maîtri- 





TWIST 2 








ser d'urgence : la gestion de | 
mémoire. 


La nouvelle version facilite le 
choses en fournissant avant lance 
ment une estimation plus précis 
des exigences du programme qu 
l'on se propose de charger. L 
fenêtre qui affiche chaque progran 
me mentionne de plus l'utilisatio 
qu'a fait celui-ci de la mémoire qt 
lui était proposée. Mais seule év 
demment l'expérimentation vou 
permettra d'arriver à optimiser vér 
tablement vos allocations mémoire 
Notez que certains programme 
supportent mal la limitation de ler 





Upgrade Installation EEE 
Installer 
Suppriner 
AUCUX 
Spooler 


Installer 
Suppriner 
Informations 
Gptions 
Effets spéciaux 
Y Sécurité 





SELECTEUR D'OBJET 


INSTALLER UN PROGRAMME 
Non : PPMASTER,PRG 















A:\ORPHEE , PRG 





A:\KERBITIS.PR6 








Ménoire libre : 0882 sur 





| Ménoire libre : 0896 
LS sur 




















A:\DXXXEDIT. PRG 





Mémoire libre : 6816 sur 8148 Ko 















(c)1986 by 
R. J, Melvin 

























\FBOLEDIT.PR6E 





e libre : 8816 sur 








4 FER 
D : NDXHEAVEN. PRG 














[[ Mémoire libre : 8016 sur 0150 








ù 1 Flut Roy-1 
Hi 2 TenpleGong 
3 CLARIBASSE 





BANK_NO1,TX7 


17 Baby DX91 
18 SteelCans 
19 TLK DRUM 3 








espace de travail, il vaut donc mieux 
commencer par pratiquer une certai- 
ne générosité, et ne pas hésiter 
dans un premier temps à sauver, 
avant d'activer les options avancées 
des applications installées. Twist 2 a 
aussi amélioré son estimation de la 
mémoire totale disponible en y 
incluant la part qu'il occupe lui- 
même. Les configurations sont tou- 
jours sauvegardables sous le nom 
de liasses. Elles correspondent sur- 
tout à une utilisation avec un disque 
dur, et sont rechargées automati- 
quement à chaque utilisation de la 
machine, c'est bien pratique. 


LE RAM-DISQUE 


C'est, nous l'avons déjà dit, un com- 
plément très logique de ce type de 
Programmes. Il convient ici de l'ins- 
taller préalablement aux logiciels qui 
doivent y avoir accès. || peut égale- 
ment être désinstallé en cours de 
Séance. Le ram-disque de Twist dis- 
pose d'une sécurité bienvenue sur 
les facéties d'une application, qui 
Permet de retrouver les dernières 
Sauvegardes. Mais uné protection 
Contre les pannes plus graves serait 
aussi la bienvenue. Certains ram- 
disques la garantissent... et on leur 
en Sait parfois grâce. Le ram-disque 
Vous entraînera lui aussi dans une 
arithmétique des octets. Pensez 
qu'il a surtout une vocation de buffer 
et de sécurité, fichier par fichier, et 
qu'il n'a pas besoin d'être énorme, 
Mais souvenez-vous qu'il vaut sou- 
vent mieux un petit disque-ram que 
pas du tout. 








L'installation de sept applications, avec 25 mégas de mémoire 


SPOOLER 


Installable à partir du bureau Twist 
il prend tout son intérêt lorsque l'or 
travaille avec des programmes 
comme Publishing Partner Master et 
UltraScript du même éditeur (Upgra- 
de), puisqu'il permettra de pour- 
Suivre l'impression d'un fichier Publi- 
Shing Master tout en continuant à 
Twister entre ces deux applications. 
Pour l'impression avec la SLM 804, 
il faudra penser à réserver environ 1 
Méga d'espace de calcul pour cette 
dernière, qui, on le sait, utilise la 
mémoire de l'unité centrale. 


DONC... 


Twist qui était déjà un programme 
éminemment recommandable a 
bénéficié d'améliorations qui le ren- 
dent plus convivial. Son utilisation 











devrait avoir tendance à se générali- 
ser grâce à la multiplication et à la 
démocratisation des solutions pour 
augmenter la mémoire vive. Ceci 
reste évidemment le point crucial de 
l’utilisation de “basculeurs de pro- 
grammes”. Les logiciels ne cessent 
de s'alourdir pour devenir de plus en 
plus performants, et le temps de la 
contrainte de faire tourner les pro- 
grammes sur un 520 semble bien 
révolue. Reste que la possibilité de 
passer instantanément d'un traite- 
ment de texte à un programme de 
PAO ou de dessin, où d’un séquen- 
ceur Musical à un éditeur de son de 
Synthétiseur offre des avantages à 
ne pas négliger. De très nom- 
breuses applications sont envisa- 
geables. Twist m'avait permis par 
exemple sous son ancienne forme, 
de récupérer en un temps record 
toute une bibliothèque de sons, à 
l’occasion d’un changement d'édi- 
teur de synthétiseur (le nouveau ne 
reconnaissant pas les banques de 
l’ancien). Cette opération aurait 
demandé des heures fastidieuses 
Sans cette possibilité de bascule ins- 
tantanée entre les deux logiciels. 


Twist m'avait déjà impressionné 
dans sa première version par sa 
capacité à accepter un programme 
pas du tout GEM, dont l'affichage se 
trouvait certes un peu perturbé, mais 
qui acceptait de fonctionner. Tout 
concourt donc à garantir la fiabilité 
essentielle à ce type de programme. 


c François Auboux à 





Upgrade Installation Extras 











Mémoire libre : 2323 sur 2323 Ko 
Z373 Ko 


Mémoire libre : 7323 sur 
Tenvire Tibre 1 ZSZS sur 


























- Fe | “ti | | | ui 


Non, ce n'est pas un bug, mais Twist qui regarde Twist qui regarde Twist... 














! SROLTE bre 
dis Hénoire Dre 


1 
Ld Mémoire libre : 2323 sur 
_. Mémoire libre : 2323 s 
[Ménnire libre : 2273 





















































Ram-disque, turbo-gestion 
des accès disques... durs, 
spooler, savantes 
calculatrices ? La liste des 
petits riens qui font tout 
pour transformer votre ST 
en secrétaire stylé 
s’allonge régulièrement. 
Pour espérer s'imposer de 
nos jours, un programme 
d’utilitaires doit apporter 
quelques plus distinctifs. 
Mortimer possède bien les 
ingrédients qui sont 
devenus la norme du 
genre. Mais sa résistance 
au reset (et aux accidents), 
sa possibilité de définir des 
macrocommandes au 
clavier, un certain nombre 
d'options personnelles et 
surtout son puissant 
éditeur de texte, et la 
qualité de sa réalisation lui 
confèrent une indéniable 
originalité. 





 MORTIMER 


Les utilitaires sont des programmes 
qui occupent souhaitablement le 
moins de place possible en mémoi- 
re, que l'on installe préalablement à 
d'autres applications et qui permet- 
tent d'en améliorer ou enrichir cer- 
taines fonctions, comme les accès 
disques, ou de bénéficier de mini 
programmes accessibles sans quit- 
ter l'application en cours. Ils se pré- 
sentent soit sous forme d’acces- 
soires de bureau, ils ne marcheront 
alors qu'avec les applications qui 
respectent le GEM, soit sous forme 
de programmes que l’on lance avant 
les autres et que l'on peut en géné- 
ral installer dans un dossier ‘Auto’, 
pour les appeler quand besoin est. 


La concurrence sur ce marché est 
rude. Les programmes que nous utili- 
sons quotidiennement offrent, au fur 
et à mesure de leurs mises à jour 
successives, de plus en plus de fonc- 
tions annexes, qui tendent à en faire 
des systèmes complets, autonomes. 
Dans le créneau des utilitaires, il faut 
être imaginatif pour arriver à se 
rendre indispensable. Il vaut égale- 
ment mieux présenter de sérieuses 
garanties de fiabilité car les réputa- 
tions sont tenaces et plus faciles à 
perdre qu'à gagner. Or certaines pro- 
priétés spectaculaires des softs les 
plus récents, les amènent à des flirts 
douteux avec des zones plus ou 
moins délicates de la mémoire et/ou 
du système, qui ne facilitent pas la 
tâche des développeurs d'utilitaires 
évidemment soucieux de la compati- 
bilité de leurs produits. 


“ane 


La liste des services offertes par 
Mortimer est tout à fait intéressante. 
Elle correspond visiblement aussi 
bien aux besoins d’un utilisateur tra- 
ditionnel d'applications courantes, 
qu'à ceux d'un adepte du basic Omi- 
kron, avec lequel il privilégie la com- 
munication. Les services essentiels 
de Mortimer comprennent un Ram- 
disque résistant au reset, un ges- 
tionnaire complet de fichiers, un 
spooler d'imprimante, une loupe 
active dans tous les programmes, 
une calculatrice évoluée, la possibili- 
té de définir des macro-commandes 
de clavier différentes pour tout pro- 
gramme, une commande pour par- 
quer le disque dur, et pour la bonne 
bouche un excellent éditeur de 
texte. Le programme optionnel Killer 
sera une sentinelle permanente de 
détection de virus, y compris dans 
leur variante Link. 


RAM-DISQUE 


Il y a diverses bonnes raisons d'utili- 
ser un ram-disque dont les deux 
plus importantes sont la sécurité et 
la rapidité. Dans diverses circons- 
tances, l'interruption de l’action 
créative que représente une sauve- 
garde peut nuire à sa qualité 
(musique, écriture), or le ram-disque 
est la plupart du temps spectaculai- 
rement plus rapide que le disque dur 
lui-même. Par ailleurs, en l'absence 
de disque dur (et même en sa pré- 
sence), la résistance au reset et aux 
crashes les plus sauvages d'un ram- 
disque comme celui de Mortimer, 





fait qu'on n'a plus le droit de retar- 
der la sauvegarde du travail en 
cours, augmentant d'autant le risque 
de le perdre. Les programmes 
actuels de plus en plus sophistiqués 
sont rarement exempts de bugs, et 
la seule limitation à l'usage d'un 
ram-disque “reset-proof” est sa 
ponction sur la mémoire. La possibi- 


lité offerte justement par Mortimer 
de moduler cette taille, même en 
cours d'activité, se combine judi- 
cieusement avec la baisse du prix 
des augmentations de mémoire. 
Une taille réduite de ram-disque 
bien calculée, suffit dans de nom- 
breux cas et permet d'éviter les 
regrets. tardifs. Des [Contrôle-S] 
d'un quart de seconde aussi sou- 
vent que nécessaire et il n'y a plus 
alors qu’à opérer une sauvegarde 
plus définitive, dure ou molle, 
lorsque la pression créatrice s'est 
atténuée. Voilà donc une première 
bonne utilisation de Mortimer. 


ÉDITEUR DE TEXTE 


C'est une des fonctions que j'atten- 
dais depuis longtemps sur le ST. 


32 BITS RISC En 


LE MICRO NOUVELLE GENERATION 
HAUTE RESOLUTION,256 COULEURS 
HUIT VOIES STEREO MULTITACHE... 








entrée! [STOP 


-CENTRONICS 
HALT 


RS232 
copies! __B 


sortie! 





STOP 


sortie: LEYA YA 


HALT 


entrée! 


CENTRONICS 


copies! _B 





Pouvoir disposer d'un bloc-notes 
ASCII, qui permette à tout moment 
sans quitter une application de noter 
des éléments récupérables ultérieu- 
rement dans un traitement de texte. 
L'éditeur de Mortimer est beaucoup 
plus qu'un bloc-notes et apparaît en 
fait comme un mini traitement de 
texte intégré. Il possède, entre 
autres, de puissantes fonctions de 
blocs, puisque ces derniers sont 
mémorisés même après des accès 
disque, ou après avoir quitté l'éditeur, 
ce qui permet de leur assigner un 
rôle dynamique. || gère l'impression, 


4 rue NOUVELLE 


95290 L'ISLE-ADAM 
TEL:(1).34.69.56.60 








dispose d’une fonction recherche/ 
remplacement itérative. Quand je 
VOUS aurai dit qu'il permet de tra- 
vailler sur quatre textes différents 
accessibles par les touches F1 à F4, 
qu'il permet d'éditer directement un 
fichier depuis le bureau GEM, vous 
conviendrez que pour un utilitaire. 
de ce prix, l'affaire est bonne. 


GADGETS DIVERS 
Rien de dépréciatif dans l'intitulé de 


cet inter destiné à regrouper un cer- 
tain nombre de fonctions plus habi- 


EXPEDITION DANS 
TOUTE LA FRANCE 


VPC 





AGORA IMPORTATEUR EXCLUSIF DU 
PROCESSEUR ARM3 30 MHZ /25 MIPS 














Z ARCHIMEDES 








| DEMONSTRATION PERMANENTE Hi! a 








PROGRAMMATION , PAO , DESSIN , 
MUSIQUE , RAY TRACING , VIDEO 


EXTENSIONS MEMOIRE A300 et A3000 
DISQUE DUR 45 ET 70 Mo, SCSI et ST506 


CARTE SCSI A300 ET A3000 


MONITEURS MULTIRESOLUTIONS 
BIBLIOGRAPHIE DABBS COMPLETE...! 








A 410+ 4 Mo RAM +HD 53 Mo 
+multisynchro . 27 990 FF 





LE VIDC ENHANCER DISPONIBLE... 
18 RESOLUTIONS SUPPLEMENTAIRES ! 


Cirolor Qu: TNT EE 
DE LOGICIELS 


7 Mo de domaine 


public = 150 FF 





version RISCOS SOLID RENDER, SOLID CAD,DELTA+ 
IMPRESSION, EUCLID MOGUL,RISC BASIC,FORTH... 





DES DEMOS | DU CHOIX ,DES IMPORTS, DES PRIX ET DU SERVICE. 






































COPIER 
FICHIER (S) 
/DOSSIER(S).,, 





Index: SOURCE 
(HSE RE Rs 
SEC | 

[A]C8 KR Finfo] 





CATHRIN 





CATHRIN 
AVEC ATTRIBUT EHRIC 
AE GAMMES 





BOITE DE DOUBLÉ GAMMES1 





— | Index: 












CIBLE 

PINOT RS 
CGT 

4 IERITE [info ] 





tuelles. La façon Mortimer de les 
gérer est au contraire tout à fait 
dans la ligne de ce que nous avons 
décrit précédemment et ne fait que 
confirmer le rôle d'auxiliaire sérieux 
qu'il prétend assumer. 


Le spooler d'imprimante spoole, 
avec un bon luxe de paramétrage 
des sorties, dont la sortie nulle pour 
analyse des données. Mais il entre- 
tient de plus des relations cordiales 
avec le ram-disque qui leur permet- 
tent d'échanger de la mémoire si le 
besoin s'en fait sentir, ainsi qu'avec 
l'éditeur de texte pour lequel il veut 
bien accepter de s'interrompre afin 
de “swapper” des fichiers, que de 
courtoisie! 

La gestion des entrées et sorties 
disques est aussi sophistiquée que 
faire se peut. Elle inclut entre autres 
l'effacement de dossier, mais surtout 
une fonction Copie de fichier hyper- 
formante puisqu'elle permet de 
gérer tous leurs attributs. 


L'élaboration des macro-com- 
mandes a été tout aussi bien pen- 
sée. Mortimer offre en effet la parti- 
cularité d'être modulaire, la 
description de sa structure étant 
accessible et modifiable à tout 
moment par appel d'un fichier INF. Il 
est par conséquent possible lors 
d'un changement de programme, de 
faire appel à une nouvelle configura- 
tion de ces macro-commandes, 
donc d'en avoir autant que de pro- 
grammes que l'on utilise. C'est en 
fait même la possibilité de changer 
toute la configuration de Mortimer 
qui est offerte par cette option, donc 
d'en sauver une bibliothèque. Ces 
commandes s'entendent par ailleurs 





dans un sens très large, car elles 
peuvent par exemple permettre par 
passage en ASCII et assignation de 
blocs, des récupérations de base de 
données ou d'agenda entre des pro- 
grammes à fichiers incompatibles. 


La calculatrice est suffisamment 
polyvalente pour être honnête. 
Fonctions mathématiques, recon- 
naissance de la notation scienti- 
fique, niveau de parenthèses, 
conversions et calculs directs en 
binaire, en hexadécimal ou en octal, 
avec une option (liée aux macro- 
commandes) de récupération des 
résultats dans l'application en cours. 
Le Snapshot (capture d'écran sous 
forme de fichier graphique) connaît 
les formats PIC, Degas et IMG. La 
souris est paramétrable grâce à un 
polynôme du troisième degré (oh la 
vilainel). Cela veut quand même 
dire que l'on peut gérer son dépla- 
cement, sa vitesse et son accéléra- 
tion (cf. Chap. Dérivées de votre 
livre de maths). 

La loupe... grossit (x4), en mainte- 








nant autant que possible les fonc- 
tions des programmes, et le parqueur 
du disque dur... devinez ! A noter 
également une simulation du reboot 
à froid ou à chaud avec la possibilité 
de désactiver le ram-disque, ou Mor- 
timer, ou les deux, ou de l'envoyer 
chercher la mousse à bronzer. 


GÉNÉRIQUE DE FIN 


Je vous laisse donc imaginer ma 
détresse, lorsqu'après ce long dithy- 
rambe je vous confierai que Mortimer 
inhibe le fonctionnement du program- 
me qui remplit le plus habituellement 
mon ST : CuBase ! Je n'incrimine 
personne car si j'utilise CuBase c'est 
notamment pour la surpuissance que 
lui confère son M_ROS, noyau “mul- 
titâche” alors que le ST ne l'est pas. 
Or, comme signalé dans l'introduc- 
tion, ce genre d'outil plonge à des 
niveaux d'intimité du ST où les plus 
bas sentiments prévalent, conflits et 
jalousies menaçant. Ainsi Rédacteur 
1 et 3 acceptent de tourner, mais 
c'est Mortimer cette fois qui se laisse 
impressionner. Les susceptibilités 
d'assembleur sont au rendez-vous. 
Ne vous laissez pas intimider, ce 
serait dommage (mais vérifiez quand 
même si vous avez un programme 
favori), ce sont les seules incompati- 
bilités que j'ai rencontrées, et que 
j'aimerais bien voir contournées, 
mais à qui la “faute” ?.. D'autant 
que, je me répète, Mortimer possède 
bien le savoir-faire et la discrétion de 
ces serviteurs anglais auquel il 
emprunte son image, et que pour les 
quelques 64 K d'assembleur qu'il 
prélève sur la mémoire, il en fait vrai- 
ment des tonnes. 


François Auboux 


Soft & Hardware GmbH 
4, Sodler, S.Rinke 1989 





EL CCE 


12 Place de la Porte de Champerret 75017 Paris M° Pte Champerret Bus PC,92 Tél: 42 27 16 00 
Ouvert 7 jours sur 7: Mardi au Samedi de 10h à 20h, Lundi 14h/19h, Dimanche 14h/18h 


EVNVN IRIS 
520 STE + 15% News 





















NEC PC ENGINE 
CONSOLE NEC 










-SEGA--- 
MEGADRIVE 




























































Moniteur Couleur + Joy + Dragon Spirit + Monster Path 
+ Maupiti ou Tennis Cup 30% CONSOLE 1490 F 
sur 200 titres MEGADRIVE 
5490 Frs 
Nouveautés + 2éme Manette = 
Moniteur Couleur + 1790 F MILITARY COMMANDO 
Maupiti + Tennis Cup + Joy GAMEBOY SHANGAI II 
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6490 Frs +BAT 8 BIT DISPONIBLE 
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Barumba, Formation Soccer, Splatter 
House, Blue Blink, Image Fight, 
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MUSIQUE SOFT AMIGA Cadeau ELECTRON 


: PRO 24 30 50 Disquettes pour l'achat d'un 
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NCA 20: 50 || 2 Softs achetés a one 
FM MELODY 790 1 G ratuit AMIGA 500 AMIGA 500 
cable de liaison + (4Jeux) ue 4150 Monit 1084S + 
CALIFORNIA GAMES |] STUDIO 2 1120 cas 
Adaptateur Secteur PRO SCORE 1850 | EUL \IS eee + Cadeau 
MIDIMIX 29 || CONSOLE 5690 F 3490 F 







BASE BALL 1950 
NAM 75 1950 


PTROCOD arc DEMONSTRATION SUR RV 
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Imprimantes MAGICIAN LORD 1950 KONICA KONICA 
STARICI0 | -- 250 F 480F 
GAUNTLET NC 1890 F ose ne à SE 10 Disquettes 500 Disquettes 
NOUVEAUTES || STARLC24/10 || NOUVEAUTES Tab LE 100 
47 66 11 77 2990 F 47 66 11 77 80 F 
RE ER NN KE ENT 
OFFRES VALABLES DANS LA LIMITE DES STOCKS DISPONIBLES Je vous passe commande de l'offre suivante: 
NOTE RSR ES Re PRENOM... Désignation Qté Px Unit Prix Tot 
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CHR A UM ER Se PR mnmmnnnn end ienene unie voscs ER ARE 
CHEQUE MANDAT CARTE BLEUE nn UN ins V4 LCR À encens 
DR ET CIS DATE EXPLORER | LE MÉRI e ER 
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TAPEZ 3615 ELECTRON Port Accessoire : 50 F Port Matériel : 150 F ee 
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Vous vous souvenez 
certainement de Gestocks, 
ce logiciel de gestion de 
stocks, clients, 
fournisseurs et de 
facturation que nous 
avions testé dans notre 
numéro 37, remarquable 
pour sa simplicité et sa 
facilité d'utilisation 
“malgré” sa puissance. 
Voici aujourd’hui 
“Gesbarre”, du même 
auteur et toujours édité par 
Arobace, qui n'est rien 
d’autre qu'un éditeur de 
codes à barres, aussi 
remarquablement simple 
que son “grand frère” et 
remplissant parfaitement le 
rôle qui lui est assigné 
comme nous allons le voir. 


SIMPLICITÉ 


C'est sans doute le terme qui 
convient le mieux pour décrire 
l'ensemble des manipulations rela- 
tives à Gesbarre. Pour l'installation, 
avant tout, le logiciel prend tout en 
charge grâce à un module spéci- 
fique, que ce soit sur disquettes ou 
disque dur, en créant les répertoires 
adéquats et en rangeant tous les 
fichiers sans que l'utilisateur n'ait à 
se poser de question. Etant donné 
que pour les sorties graphiques, 
Gesbarre utilise GDOS (dont la “sim- 
plicité”, par contre, n'est pas remar- 
quable...), il y aura création automa- 
tique d’un fichier ASSIGN.SYS pour 
les fontes utilisées. Mais luxe suprêé- 
me, si l'utilisateur dispose déjà d'un 
tel fichier (qu’il a mis en général 
quelques heures à comprendre et à 
constituer au fur et à mesure 


d'expériences plus ou moins trauma- 
tisantes), Gesbarre ne “l’écrase” pas 
et crée un fichier parallèle, dont la 
gestion ne pose aucun problème 
avec G+Plus. En effet, Gesbarre est 
automatiquement livré avec G+Plus, 
ce superbe utilitaire lui aussi édité 
par Arobace, qui permet de choisir 
un fichier Assign.Sys en fonction de 
chaque application et en spécifiant 
son chemin d'accès. Un confort total, 
donc, la configuration générale du 
programme ne posant aucun problè- 
me. La documentation, d'une vingtai- 
ne de pages, est limpide et surtout 
très didactique vis à vis de GDOS et 
ses fontes, avec en plus quelques 
informations intéressantes sur les 
codes à barres en général. 


LES CODES A BARRES 


Sans doute n'est-il pas inutile de 
revenir quelques instants sur ces 
signes tangibles de notre société de 
consommation, et que tout un cha- 
cun connaît désormais pour peu qu'il 
soit allé une fois dans sa vie acheter 
un bien quasi-quelconque dans un 
commerce... C'est en effet un procé- 
dé de plus en plus répandu et répon- 
dant à des normes internationales, 
permettant d'identifier rapidement, à 
l'aide d'un lecteur optique, les réfé- 
rences d'un produit, sa famille, son 
type, son numéro de série, etc., 
toutes informations représentées par 


Bureau Options Etiquettes 








Une partie de l'écran principal 
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GESBARRE 


des petites barres à l'épaisseur 
variable, sous lesquelles figurent 
éventuellement des chiffres et/ou 
des lettres. On en trouve plusieurs 
types standard, et Gesbarre les pro- 
pose aussi, au nombre de sept : les 
“2/5” normal et entrelacé, les 
“EAN 8” et “EAN 13” (les plus univer- 
sels), le “Codabar” (employé princi- 
palement en pharmacie), l’Alpha39 
et le Code128 (le plus complet, un 
“standard” industriel). Les cinq pre- 
miers ne contiennent que des infos 
numériques tandis que les deux der- 
niers sont alphanumériques (lettres 
plus chiffres). Lors de l’installation, 
Gesbarre demande les types de 
codes à installer (si l’on ne désire 
pas les utiliser tous) afin de réduire 
la place prise par les fontes GDOS, 
très gourmandes en place mémoire. 
La boîte d'installation demande 
aussi le type d'imprimante utilisée 
(pour le choix d’un driver spécifique), 
en proposant les 9 et 24 aiguilles 
compatibles Epson ainsi que la 
SLM804 (laser Atari) mais avec cette 
dernière, un Mega ST2 sera indis- 
pensable, du fait de l'absence de 
mémoire dans l'imprimante qui obli- 
ge à “composer” la page dans la 
mémoire de l'unité centrale. 


UTILISATION 


Le logiciel charge une page écran 
simple, avec des menus “diététiques” 





(peu chargés, chacune des options 


possédant son raccourci-clavier facile 
à mémoriser), dont un “hiérarchique” 
s’il vous plaît. Une icône ("Pro- 
grammes") attire immédiatement 
l'attention, c'est le lancement possible 
d'une autre application, un program- 
me extérieur quelconque comme un 
éditeur de texte, une base de don- 
nées, ou Gestocks lui-même, avec 
lequel Gesbarre est évidemment 
interfacé afin d'utiliser ou de complé- 
ter la base “Produits et Références”. 
L'opération effectuée, on revient auto- 
matiquement à Gesbarre, c'est pra- 
tique. L'écran principal présente aussi 
une ligne pour l'heure et la date du 
système, sur laquelle il suffit de cli- 
quer pour modifier son paramétrage. 


L'utilisation générale de Gesbarre se 
résume ensuite à trois opérations prin- 
cipales : l'édition du code, la prépara- 
tion de l'impression et son paramétrage 
(format de page et d'étiquettes) et 
l'impression elle-même. Le principe 
consiste tout d'abord à choisir le type 
de code à éditer et la taille des carac- 
tères, puis de préparer le format de la 
page selon 6 options : sa hauteur, sa 
largeur (deux paramètres imposés par 
GDOS en fonction du driver utilisé), ses 
offsets en X et Y, sa hauteur et sa lar- 
geur (zone d'impression). Tout cela per- 
met de préparer précisément sa page, 
et si vous n'êtes pas sûr d'obtenir le 
résultat escompté, il sera toujours pos- 
sible de la visualiser avant de l'impri- 
mer. |! faut aussi préparer les “éti- 
quettes”, en choisissant le nombre 
d'étiquettes par ligne, leurs hauteurs et 
largeurs, et les espacements entre les 
lignes et les colonnes d'étiquettes. Là 
aussi, le mode pré-visualisation permet 
de s'assurer de la justesse des para- 
mètres saisis, et notamment de consta- 
ter si le code choisi vient correctement 
S'insérer dans l'étiquette déterminée. 


L'étape suivante consiste à paramé- 
trer les codes eux-mêmes pour les 
impressio\s en série, à partir soit 
d'une référence unique, soit d'une 
référence calculée. La référence 
unique revient à éditer n fois un 
même code déterminé, dans lequel, 
nous ne l’avions pas précisé, il est 
possible de rentrer un code de 
contrôle, et qui n’est autre que le 
fameux “checksum” bien connu des 
programmeurs. La référence calcu- 
lée, elle, permet d'éditer une suite 














TRES 


REFR TAGS ER 


PARTIE VARIABLE SYHOOLISEE mar: $ 


INCREMENTATION (numérique) 

dé : an 
LE 7 ASSET 

Répétition: 2 


Our] EUR 
CONFIRNER_(F 1) 


Code de contrôle 





CONFIGURATION ETIQUETIES : 


Etiquettes/ligne : 82] 


82,58 (cn) 
86,78 (cn) 


88,08 (cn) 
86,88 (cm) 


Hauteur Etiquette 
Largeur Etiquette 


Espace Lignes 
Espace Colonnes 


à (CONFIRMER (F10) |. 


Le 





de codes à incrémentation automa- 
tique, par exemple mille étiquettes 
allant de la référence 0001 à 1000, 
en rentrant un où plusieurs jokers 
($) pour la partie variable. 


Tout cela se fait très simplement et 
rapidement, mais le plus spectaculaire 
réside dans la possibilité d'importer 
sous Gesbarre des références déjà 
contenues dans une base de données, 
un tableur ou même un fichier texte. En 
respectant le formatage des champs 
de saisie, il est alors possible d'utiliser 
des séries complètes de références, de 
façon complètement automatique. Cela 


ABCOIX 


ABCO02X 


ABC03X 


a : 





peut être très intéressant lors d'une uti- 
lisation de références disparates ou 
non successives. 


Une dernière chose importante : les 
paramétrages des formats de page 
et d'étiquettes sont sauvegardables 
séparément, et l'utilisateur peut ainsi 
se constituer une bibliothèque de 
fichiers de paramètres divers, dont 
un sera chargé par défaut au lance- 
ment du logiciel. 


VOILÀ... 


pour ce rapide “tour du propriétai- 
re”, car tout est simple, facile et rapi- 
de au point qu'un enfant de 6 ans 
saurait parfaitement s'en servir. Par- 
ticulièrement destiné aux gens peu 
habitués à “l'informatique”, Gesbarre 
rendra d’inestimables services pour 
la gestion des stocks et des pro- 
duits, en permettant de gérer soi- 
même et très proprement des codes 
à barres. Son prix semble raison- 
nable (environ 2500 F), compte tenu 
du fait qu'il est livré avec G+Plus et 
qu'il constitue typiquement ce que 
l’on nomme une “application vertica- 
le”. Enfin, pour terminer, lançons un 
petit coup de chapeau à l’auteur, qui 
prouve une fois de plus que ergono- 
mie, simplicité et facilité d'utilisation, 
en programmation, font partie inté- 
grante d'un cahier des charges qui 
se respecte... 


Laurent Debarre 


ABCOIX 


ABCO2X 


LATIN LT 


ABCO3X 


Impression, sous SLM 804, d'une série de codes ‘Albha39" en référence calculée 
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NOUVEAU 
COMPOSEZ VOUS MEME 


VOTRE POSTE ST PROFESSIONEL 





Il NOUS VOUS PROPOSONS UN BOITIER AVEC : 
| 1 CARTE MEGA ST, 1 ALIM 200W, 1 LECTEUR 720 K, 1 CLAVIER MEGA : 5990 F 
| 


VOUS CHOISISSEZ VOS OPTIONS : 






























































| EXT 2 MEGA 2000 F EXT 4 MEGA 3500 F 
{| 2 ème LECTEUR 3"1/2 690 F LECTEUR 5"1/4 690 F 
| DISQUE DUR 20 MEGA + CARTE SCSI 2590 F SYQUEST 44 MEGA + scsi ET CARTOUCHE 5490 F 
| CARTE 16 MHZ 2790 F PC SPEED 2690 F 
SPECTRE GCR 3990 F MONITEUR MONOCHROME 990 F 
| MONITEUR COULEUR 2000 F MONITEUR MULTISYNC 5990 F 
| 
1] 
| RENSEIGNEZ VOUS … 
| 
| PAO / CAO / DAO / …. 
! 
| Le STACY EST ICI METTEZ UN TIGRE DANS VOTRE MOTEUR ! 
| venez le voir A SO Ci 
| KT: 1 Mo RAM 4 mégas de mémoire 
| 20 Mo Disque dur ur 
ATARI PC2 HD 
Le compatible complet : 
avec Spectre $ Ê 
(émule Macintosh” portable) disk 5"1/4 
Disque Dur 30 Mo 
NC CGA / EGA 
HERCULES / MDA 
| NOUVEAUX PRIX ! KITS EXTENSION MEMOIRE LES SCANNERS 
(| Quelque soit votre système, nous avons une solution. 
| CANON IX12F 
Extension à 1Mo sur STF 690 F scanner à plat 300 DPI 
Extension à 1Mo sur STE 490 F 12990 F TIC 
Extension à 2Mo sur STE 1490 F HANDY SCANNER TYPE 10) 
Extension à 2Mo sur Mega ST1 1990 F 400 DPI105 del 
Extension à 2,5 Mo sur 260, 520 ST ss NUSPRSES 
| ou 520 STF où 1040 STF 2290 F 2290 FTTC 
|| Extension à 4Mo sur Mega ST2 1990 F 
Extension à 4Mo sur Mega ST1 3490 F * Macintosh est une marque 


Extension à 4Mo sur STE 2990 F déposée d'Apple Inc. 


Certaines extensions nécessitent de bonnes connaissances de montage electronique. Pose 





| 
| possible par nos services sous 8 heures. Consultez nous. 
| 















Pour compléter son équipe technique 
MICRO VIDEO PARIS 


recherche 


UN TECHNICIEN 


envoyer CV et prétentions à MICRO VIDEO 
8 rue de VALENCIENNES 
75010 PARIS 





MICRO VIDEO se lance sur le Macintosh 7 


avec des prix Atari ! 


LES MU-KITS 


Disques durs S.C.S.I. 












KIT 1 : 
Di dur 20Mo + cart 
ME carte SE 2Mo 
sBta Disque dur 20 Mo 


Disque dur amovible + carte 
+ cartouche 44 Mo 


5490 F 


Grand Ecran Ad 


idéal pour WORD 4 / XPRESS 3.0 


KIT 3 : 
Disque dur amovible + carte 
+ cartouche 44 Mo, boitier, alim 


19990 F Hors Taxe 


RATUIT _sscuau 50 août co MEC AN QUES 
1 Mo 



















au prix de 500K 










Pour tout achat d'un 520 
STE, nous vous offrons 












l'extension 500K 20 Mo SCSI 
ss supplémentaire. 1790 F TTC 
ce qui vous donne un SYQUEST 44 Mo 
1024 STE pour | 4290 F TTC 
2490 F Carte DMA/SCSI 





MICRO VIDEY 


la passion d'un spécialiste, la puissance d'une chaine. 
Ces prix sont valables 


jusqu'au 30 Août 90 et PARIS 


BORDEAUX | TOURS 


annulent les précédents. 8, rue de Valenciennes 75010 Paris A 
Opérations dans la limite Alsace et Lorraine | 81, rue Michelet 
des stocks disponibles 5 40.37.92.75 / 40.34.97.80 + 37000 Tours 


Ouvert du Mardi au Samedi de 10H à 19 H 
Métro: Gare de l'Est | Gare du Nord 


33000 Bordeaux 
Certains articles et 
certains prix peuvent être 
différents en Belgique.! 
RENSEIGNEZ VOUS DES DAX 2 NAN LYON 
DELAIS POUR LA 56, Avenue 55, rue des 8, avenue de 11,12 cours 


PROVINCE Victor Hugo églises  |Grande Bretagne] Aristide Briand 
40100 Dax 54000 Nancy | 66000 Perpignan | 60300 Caluire 


æ 47,05.78,50 


BELGIQUE 


BRUXELLES DINANT 
1, rue Dons 21 place 
1050 Bruxelles communale 

5198 ANHEÉE 


æ 58.74.18.63 ? ; 
r 83370647| + 68 34 2440 & 02/648 9074 |æ 082/611451 
























































GfA-GUP est ce nouvel 
utilitaire dont nous vous 
avions parlé lors de notre 
compte-rendu sur le CeBit 
à Hanovre, et qui vient 
d'être importé et francisé 
par les Editions Micro- 
Application. C’est en fait 
une bibliothèque de 
routines GfA qui simplifient 
la programmation de 
l'interface utilisateur. Le 
GfA tente ainsi de rattraper 
l’Omikron et son Easy- 
GEM... 


Tout d’abord, il faut vous dire que 
dans ce test, nous n'avons pas 
grand-chose à vous montrer à part 
des pages de GfA.. En effet, GfA 
GUP est un gros fichier en GfA 3.0 
de 54 Ko contenant un nombre cer- 
tain de routines (certaines sont “Pri- 
vate”) dont 61 sont accessibles à 
l'utilisateur. Quel est le but de GfA 
GUP ? Ceux qui ont déjà développé 
sous Unix et la Toolkit de X-Win- 
dows savent ce qu'est une Widget : 
c'est une structure décrivant une 
fenêtre ou un objet ainsi que son 
contenu. Dans un tel système, ouvrir 
une fenêtre 50x50 sur une bit-map 
1000x1000 avec un scrolling auto- 
matique non géré par l'utilisateur est 
facile. Ça, c'est le but à atteindre, 
GEM ne faisant que transmettre ses 
événements à l'utilisateur en per- 
sonne qui se charge de la gestion 
de l'interface. 


Comme on fait de la programmation, 
commençons par le principal : la 
doc... J'ai pas mal souffert en la 
lisant, si, si. Imaginez le manuel du 
Laser C sans une ligne d'exemple et 
vous obtiendrez à peu près ce que 
j'ai sous les yeux en ce moment : 
dur ! Finalement le sempiternel 
“Description - Parameters - Synop- 
sis” a du bon. Enfin, au bout d'une 
exploration complète de ses 80 
pages, voilà ce qu'il faut savoir : GfA 
GUP “peut” être considéré comme 
une couche supérieure à GEM en 
ce sens qu'il récupère la quasi-inté- 
gralité des événements courants, 
gère tout seul les principaux, ren- 
voie ceux qu'il ne “comprend” pas à 
l'utilisateur et apporte de nom- 
breuses fonctions pratiques qui 
manquent au GEM standard. Mais 
attention, pas question de mélanger 
du bon GfA habituel avec du GfA 
GUP. Certaines fonctions du Basic 
deviennent interdites ou obsolètes. 
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=) GfA-GUP 


Exemple : vous voulez définir une 
fenêtre graphique contenant un 
cercle et une droite. Vous ouvrez la 
fenêtre en question et vous créez 
une PROCEDURE GRAPHIC(win- 
dow,hor,ver) qui sera appelée à 
chaque fois qu'un événement 
REDRAVW sera intercepté par GfA 
GUP... On est bien entendu encore 
loin des Widgets qui se redessinent 
toutes seules ! L'utilisateur doit tou- 
jours, en fonction du numéro de 
fenêtre transmis, tracer son gra- 
phique tout seul. 


Côté programme, c'est plutôt 
propre... Le code est assez conden- 
sé, et il n'est pas conseillé au néo- 
phyte de se plonger dedans pour 
comprendre pourquoi au moment t 
la procédure ‘schmugle’ récupère la 
liste des rectangles à redessiner. A 
noter que la version qui m'a été 
communiquée est faite pour les GfA 
3.XX même si la doc la signale com- 
patible avec le 2.02. On y trouve 
donc un bon millier de lignes très 
peu commentées (une version n'est 
pas commentée du tout pour 
prendre moins de place), séparées 

n “procédures non appelables” et 
“procédures appelables”. Mais le 
grand désagrément, à mon sens, de 
GfA GUP est le suivant : dès que 
l'utilisateur veut récupérer des don- 
nées concernant une fenêtre où un 
objet, il travaille avec des variables 
globales (et il y en a un paquet |) 
organisées en tableaux, ce qui est 
d'une propreté et d’une rigueur 
folle. Celui (ou ceux) qui a pro- 
grammé GUP devrait savoir que 
Get_ Window _XY(W,VAR x,y), ça fait 
toujours plus lisible et plus propre 
que x=xcoor(i) y=ycoor(1).. Bref, il 
faut un sacré moment avant de pou- 
voir se passer de la documentation 
pour programmer cette petite Toolkit. 


2 SUCER 2 PE PE) 
"a 


Je suis railleur, certes, mais les, 
résultats ne sont quand même pas 
mal : un programme de démo est 
fourni (moi pas comprendre pour- 
quoi avoir une version TOS 1.2 et 
une version TOS 1.4 ?) et j'avoue 
que cela tourne bien et vite. 
Fenêtres graphiques, fenêtres 
textes avec sélection simple où mul- 
tiple de lignes, bureau GEM et 
icônes, sliders et arbres d'objets, 
c'est impeccable et plutôt profes- 
sionnel pour un programme de 265 
lignes (plus 1100 de GfA GUP, 
bande de petits rigolos….). 


La doc annonce que certains pro- 
grammes commercialisés en ce 
moment utilisent GUP dans leur pro- 
grammation. || est certain qu'il y a un 
côté pratique à ne programmer que le 


Strict minimum (qui peut encore être 
réduit) et qui peut ne pas être contre- 
balancé par un ralentissement obligé 
à l'exécution. Cela demande à mon 
avis tout de même un bel investisse- 
ment de la part du développeur que 
de se plonger dans un code qui, 
n'ayons pas peur des mots, n’a pas 
l'air tout à fait finalisé... On aurait 
aimé que GfA GUP puisse attacher 
une bit-map ou un fichier texte à une 
structure de fenêtre et s'occuper lui- 
même des divers rafraîchissements 
et scrollings. Signaler, dans la doc, 
que la résolution actuelle peut se 
récupérer par un XBIOS et annoncer 
qu'en fonction de cette dernière, l’utili- 
sateur devra faire un changement 
d'échelle fait un peu mesquin : cela 
demande deux lignes de programma- 
tion en plus pour l’auteur de GUP ! 


En conclusion, disons que GfA GUP 
est un produit intéressant à faible 
prix, qui séduira ceux que la pro- 
grammation GEM pure et dure en 
GfA rebute, qui simplifiera aussi cer- 
tains aspects de la programmation 
de logiciels “au look professionnel” 
mais qui obligera leurs auteurs à se 
détacher un peu de l'optique de 
GEM qui offre des procédures de 
rappel de paramètres. En fait, un 
code un peu jeune dont on attend 
qu'il vieillisse et s'améliore comme 
le bon vin, même s'il a déjà des qua- 
lités indéniables… 


£ Daniel Glazman a 
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Voici quelques mois, nous 
vous avions proposé deux 
articles consacrés à la 
réalisation d'’interfaces 
d’entrées/sorties pour le 
STF 520/1040. Celui-ci 
aborde aujourd'hui la 
réalisation d’une carte de 
conversion stéréo A/N-N/A 
8 bits, vous permettant 
d'entrer dans le monde, ô 
combien étrange, de 
l’analogique... 


Fig.1: Diagrammes fonctionnels du convertisseur A/D 


LA CONVERSION A/N-N/A 


Avant d'entrer dans le détail de cette 
carte, il est préférable de consacrer 
l'espace de quelques lignes à l'étude 
des circuits spécialisés, qui en 
constituent le coeur. La figure 1 vous 
présente le diagramme fonctionnel 
du convertisseur A/N 8 bits, AD 7575 
de “Analog Devices”, qui travaille 
selon la méthode des approxima- 
tions sucessives. Celle-ci consiste à 
comparer, à l'aide d'un comparateur 
(COMP.) qui mérite bien son nom, la 
tension d'entrée (Vin) à une tension 
de référence, qui, en pas binaires 
successifs, se rapproche de la ten- 
sion d'entrée. Cette tension de réfé- 
rence est obtenue à l’aide d'un 
convertisseur D/A commandé par un 
registre d’approximations succes- 
sives (SAR). Cette conversion 
n'étant pas instantanée, il faut 
“mémoriser” la tension d'entrée pour 
éviter toute erreur de quantification 
durant la conversion. 
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© CARTE DE CONVERSION 
A/N-N/A 8 BITS 





Cette mémorisation s'effectue à 
l’aide d'un échantillonneur/ bloqueur 
(Track and Hold). La tension de 
référence Vref permet de déterminer 
l'étendue de mesure du convertis- 
seur A/N qui est comprise entre 0 
volt et Vrefx2. Une fois la conversion 
terminée, une valeur binaire propor- 
tionnelle à la tension échantillonnée, 
comprise entre $00 et $FF, est four- 
nie sur les bits DBO à DB7. La rela- 
tion entre la tension d'entrée (Vin) et 
la valeur binaire (Data) obtenue est : 


Data(LSB's)=(256*Vin)/(2*Vref)+0.5. 


Donc si Vref est égale à 1.23 voit, 
l'étendue de mesure du convertis- 
seur A/N sera comprise entre 0 et 
2.46 volts et les valeurs binaires res- 
pectives obtenues sont $00 et $FF. 
Ce circuit comporte plusieurs 
entrées de commandes qui permet- 
tent, à l’aide d'une logique de 
contrôle, de synchroniser les diffé- 
rentes étapes d'une conversion. 


DATA INPUTS 
ef du convertisseur D/A (source Analog Devices) 








- La broche CS permet la validation 
du convertisseur lorsqu'elle passe à 
l'état bas ; 

- La broche RD permet le lancement 
de la conversion lors de son passa- 
ge à l'état bas ; 

- La broche BUSY est à l’état bas 
tant que la conversion est en cours ; 
- L'entrée CK permet de définir la fré- 
quence de travail du convertisseur. 


Grâce à son échantillonneur-blo- 
queur et à un temps de conversion 
très court (5 us), le circuit AD 7575 
permet de digitaliser un signal analo- 
gique d'une amplitude de 2.46 volts 
crête à crête possédant une fréquen- 
ce de 50 KHz. Ceci pour un prix de 
quelques dizaines de francs... 


La figure 2 vous présente le dia- 
gramme fonctionnel du convertis- 
seur N/A 8 bits, AD 7524 de Analog 
Devices, qui permet de convertir 
üne valeur binaire variant entre $00 
et $FF en un signal analogique pro- 
portionnel à cette Valeur. Ce conver- 
tisseur utilise la conversion multipli- 
cative. Ainsi, les bits DBO à DB7 
sont convertis en courant constant, 
à l'aide d'un réseau de résistances 
R-2R. Ces courants sont dirigés 
Vers les sorties OUT1, OUT2 à 
l'aide d'interrupteurs électroniques 
dépendant de l'état des bits DBO- 
DB7. Les courants présents sur les 
sorties OUT1, OUT2 sont convertis 
en tension à l’aide d'un convertis- 
sSeur courant/tension, réalisé avec 
un amplificateur opérationnel. La 
relation existant entre la valeur 
binaire (Data) et la tension en sortie 
(Vout) est : 


Vout=-Vref*(Data/256), 


où Vref est la tension de référence 
alimentant le réseau de résistance 
R:2R du convertisseur. 


Ce circuit comporte plusieurs 
entrées de commandes qui sont : 


- La broche CS permet la validation 
du convertisseur lorsqu'elle passe à 
l'état bas : 

- La broche WR permet le transfert 
de la valeur binaire présente sür 
les bits DBO-DB7 dans le buffer 
Interne du convertisseur, lors de 
Son passage à bas. 


Si RI=R2=2xR3=R. la fréquence de 


coupure est égale à : 


Fi = 1 


FEU Ci 
avec CI, C2 en farads. R en ohms. 
et Fc en hertz 


Fig.3: Structure dau filtre passe-bas 
40 dB/décade 





Grâce à ces convertisseurs, il sera 
possible de concevoir une carte de 
conversion A/N et N/A permettant la 
digitalisation d'un signal analogique 
d'amplitude maximale de 2.5 volts avec 
une fréquence variant de 0 à 20 KHz. 


PRINCIPE 


La carte de conversion se compose 
de 2 modules distincts, avec un 
module de conversion A/N double et 
un module de conversion N/A double. 


1) Le module de conversion A/N 
double 

Il vous est présenté par la figure 4. 
Chaque voie d'entrée INO, IN est 
composée d'un double filtre passe 
bas permettant de stopper tout 
signal dont la fréquence est égale 
où supérieure à la moitié de la fré- 
quence d'échantillonnage. Ceci pour 
éviter toutes distorsions lors de 
l'échantillonnage du signal. Ces 
filtres sont réalisés respectivement 
pour les voies INO et IN1 à l'aide 
des amplificateurs opérationnels 
OP1/0P2 et OP5/0OP6. La structure 
du filtre ainsi que la formule de cal- 
cul de la fréquence de coupure est 
fournie par la figure 8. Cela vous 
permettra de recalculer, si nécessai- 
re, cette fréquence en fonction de 
vos besoins. 


Après le filtrage du signal, le som- 
mateur réalisé respectivement pour 
les voies INO et IN1 autour des 
amplificateurs opérationnels OP3 et 
OP7 permet de travailler en mode 
unipolaire (cavaliers en position S) 
ou en mode bipolaire (cavaliers en 
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position T). Après ces traitements, 
le signal de chaque voie INO-IN1 est 
fourni aux convertisseurs A/N res- 
pectifs (IC12-1C13). Chaque conver- 
tisseur a besoin d’une tension de 
référence qui lui est fournie par le 
montage réalisé autour des amplifi- 
cateurs opérationnels OP4 pour la 
voie INO et OP8 pour la voie IN1. 
Cette tension de référence est ajus- 


Cso 


ES 


CES 
au. 


Fig,5 Module de conversion D/A pe L 
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Fig.4 Module de conversion À/D 


table, à l’aide des potentiomètres P1 
pour la voie INO et P2 pour la voie 
IN, entre 1 et 2.5 volts. Cela per- 
mettra à chaque voie de posséder 
une gamme d'entrée indépendante 
variant entre O volt et deux fois la 
tension de référence réglée. 


Enfin les cavaliers JO et J1 permet- 
tent de réaliser un commutateur 


[LE 
Tir 


ay @y QU  +SU 


2 O1 





AC/DC (courant alternatif/ courant 
continu). On enlèvera le cavalier 
lorsque l’on travaillera avec des 
signaux alternatifs afin d'enlever 
toute composante continue aux 
signaux à traiter. 

La partie numérique est quant à elle 
très simple. Chaque convertisseur 
A/N se partage le bus de données 
de la carte interface DLO à DL7 pour 
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le convertisseur de la voie INO, et 
DL8 à DL15 pour le convertisseur 
de la voie IN1. Cela permet la syn- 
chronisation de l’échantillonnage 
des signaux analogiques sur les 
deux voies. La lecture des données 
et le depart d'une nouvelle conver- 
sion s'effectuent lors du passage au 
niveau bas de l'un des signaux de 
validation CSLLn ou CSLUn. 
L'adresse de chaque convertisseur 
est définie par l'emplacement d'un 
cavalier aux positions |, J, K, L, M 
pour le convertisseur de la voie INO 
et N, O, P, Q, R pour le convertis- 
seur de la voie IN1. Les adresses 
sont les suivantes : 


Position Adresse 
du validée 

cavalier 
JT SFA 0001 
J SFA 0003 
K SFA 0005 
L SFA 0007 
M SFA 0009 
N SFA 0000 
© SFA 0002 
P SEA 0004 
(e] SFA 0006 
R SFA 0008 


Enfin une horloge, d'une fréquence 
de 4 MHz, réalisée autour de 1C13, 
permet de cadencer le fonctionne- 
ment interne des deux convertis- 
seurs et d'obtenir des temps de 
conversion de 5 us. Dans ce monta- 
ge, les sorties BUSY des deux 
convertisseurs ne sont pas utilisées. 
Elles permettront de vérifier leur bon 
fonctionnement. 


2) Le module de conversion N/A 
double 

Le module de conversion N/A vous 
est présenté par la figure 5. Celui-ci 
se compose, comme pour le module 
A/N, de deux parties identiques. 
Chacun des convertisseurs N/A 
(IC3/1C6) est connecté en parallèle 
sur le bus de données de la carte 
interface DWO-DW7. La mémorisa- 
tion dans le buffer de chaque 
convertisseur s'effectue lors du pas- 
sage au niveau bas de l’un des 
signaux de validation CSWn. 


Comme pour le module de conver- 
Sion A/N, l'adresse de chaque 
convertisseur N/A est définie par la 


position d'un cavalier aux positions 
A, B, C, D pour le convertisseur N/A 
de la voie OUTO et E, F, G, H pour le 
convertisseur N/A de la voie OUT1. 
Les adresses sont les suivantes : 


Position Adresse 
du validée 
cavalier 


$SFB 0000 
SEB 0200 
SFB 0400 
$SEB 0600 
$SFB 0800 
$FB 0A00 
SFB OC00 
$SFB 0E00 


L Q "Ji En OU O WU > 


Après la conversion de la valeur 
binaire en courant par les convertis- 
seurs N/A, les amplificateurs opéra- 
tionnels OP9, OP12 transforment ce 
courant en une tension proportion- 
nelle. Ce signal est filtré au travers 
de deux filtres passe bas, réalisés 
autour des amplificateurs opération- 
nels OP10, OP11 pour la voie OUTO 
et OP13, OP14 pour la voie OUT. 
Ils permettent de lisser le signal et 
d'atténuer les fréquences supé- 
rieures ou égales à la moitié de la 
fréquence d'échantillonnage. La 
structure de ces filtres est identique 
à celle des filtres utilisés dans le 
module de conversion A/N. 


Comme pour le convertisseur A/N, 
une tension de réference est néces- 
saire, celle-ci est ajustable grâce au 
potentiomètre P3 pour la voie OUTO 
et P4 pour la voie OUT1 entre -1 
volt et -4 volts. Cela permet d'obte- 
nir une amplitude du signal de sortie 
indépendante et comprise entre 0 et 
-Vref sur les voies OUTO et OUT. 
Grâce aux cavaliers O0 et Of, il 
sera possible de fournir sur les voies 
OUTO, OÙUT1 un signal avec (cava- 
lier présent) ou sans (cavalier 
absent) composante continue. 


La figure 6. vous présente le brocha- 
ge des différents circuits intégrés 
utilisés dans cette réalisation. La 
nécessité d'une tension négative (- 
5v), m'a amené à réaliser une ali- 
mentation symétrique +5v Ov -5v 
dont le schéma de principe vous est 
présenté par la figure 7. Elle rempla- 
cera avantageusement l'alimenta- 
tion décrite lors du premier article. 
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+SsV OUT. 
VREF OUTE 
AIN 





GND 
AGNC DEF 


DES 





DEE 
DE 1 





DES 
DBZ DES 


DE= DE 





RÉALISATION PRATIQUE 


Comme pour les cartes précédentes, 


le circuit imprimé a été réalisé en 


double face sur un support en époxy 
de format 155 x 100 mm. L’alimenta- 
tion est réalisée, quant à elle, en 
simple face sur un support de dimen- 
sions 75x50 mm. Les figures 8, 9 et 
10, vous présentent les typons à 
l'échelle 1, ils vous permettront la 
réalisation des circuits imprimés. La 
figure 11 vous présente l'implantation 
des composants sur la carte princi- 
pale. Voici maintenant quelques pré- 
cisions concernant le montage : 


- Commencer par la réalisation du 
strap indiqué par le repère X sur la 


ICI-IC4-1C7-IC8-IC10-ICH- : TL072 Double Ampli OP. 
IC2-ICS5 : TLO71 Simple Ampli OP. 

IC3-IC6 : AD7524 Convertisseur Digital/Analogique (8bits) 
IC9-ICI2 : AD7575 Convertisseur Analogique/Digital (8bits) 


ICI3 : 74HC132 Quadruple Porte NAND 2entrées 
(trigger de Schmitt). 


fig 7: Schéma de principe de l'alimentation (+-5 V) 









































figure 11. 

- Comme pour les cartes précé- 
dentes, il est indispensable d'utiliser 
des supports tulipes pour tous les 
circuits intégrés. 

- Monter les supports des 13 circuits 
IC1 à 1C13, en effectuant les sou- 
dures sur les deux faces du circuit 
imprimé. 

- Monter les composants discrets 
(Résistances, Quartz, Selfs, 
Condensateurs, Bornier (BO) et les 
barrettes bas profil (BBP1, BBP2, 
BBP3, BBP4, BBP5, BBP6, JO, Ji, 
O0, Of). 

- Attention pour les composants L2, 
D1, C2, C4, C7, C9, C11, C17, C21, 
C30, C37, C38, C39, C40, R10, il 
faut effectuer les soudures sur les 
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Fig.8 : Circuit imprimé de 
l'alimentation +-5V 
(Vue de dessus) 


Fig.8 bis: 
Implantation des 
composants de 
l'alimentation +-5V 





deux faces. 

- Sur les entrées INO, IN et les sor- 
ties OUTO, OUT1, on câblera, à 
l'aide de fils blindés, quatre fiches 
femelles de type RCA. 

- Terminer par le montage du 
connecteur CO2. 


Vérifier surtout qu'aucun court-circuit, 
dû à une mauvaise gravure ou à une 
mauvaise soudure, ne subsiste entre 
les pistes de la carte. Après ces 
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quelques vérifications, vous pouvez 
insérer les circuits intégrés sur leurs 
supports respectifs. Attention au 
sens d'insertion des circuits intégrés. 
Les mêmes recommandations sont 
à suivre pour l'alimentation symé- 
trique dont l'implantation est fournie 
par la figure 8 bis. Après vérification 
de son bon fonctionnement à l'aide 
d'un voltmètre, on la connectera au 
bornier (BO) de la platine de conver- 
sion en respectant le sens du bran- 
chement. La connexion à la carte 
interface s'effectuera de la même 
manière que pour la carte 
d'entrée/sortie “tout ou rien” décrite 
dans le numéro 38 de ST Magazine. 


Avant la première connexion de 
l'interface au STF, on vérifiera que 
tous les circuits intégrés sont bien 
alimentés, après la mise sous ten- 
sion des cartes. De plus on procé- 
dera aux préréglages des tensions 
de référence : 


a) Des convertisseurs A/N 
- Brancher un volmètre numérique 
entre la broche 17 du circuit IC 12 et 
la masse. 
- À l’aide du potentiomètre P1, 
régler la tension Vref à 1.23 volt. 
- Faire de même pour le circuit ICQ, 
à l’aide du potentiomètre P2. 
- Relier INO et IN à la masse. 
- A l’aide du voltmètre numérique, 
vérifier que la valeur de la tension 
entre la broche 16 de IC9 et IC12 
est de : 

* 1.23 volt (Vref) si le cavalier est 
dans la position T ; 

* O voit si le cavalier est dans la 
position S ; 
- Laisser les cavaliers dans la posi- 
tion S. 


b) Des convertisseurs N/A 

- Brancher le voltmètre numérique 
entre la broche 15 du circuit IC3 et 
la masse. 

- À l’aide du potentiomètre P3, 
régler la tension Vref à -2.27 volts. 

- Faire de même pour le circuit IC6, 
à l’aide du potentiomètre P4. 


Le préréglage de la carte de conver- 
sion A/N-N/A étant terminé, mettre 
hors tension l'interface et le STF, 
attendre la décharge des condensa- 
teurs, et introduire le connecteur de 
la carte interface dans le connecteur 
du port cartouche, allumer le STF, et 


PING PIN1 
IJKLM NOPQOR 





Figure 11 : Implantation des composants 


vérifier son bon démarrage. Eteindre 
le STF, mettre sous tension l'interfa- 
ce et rallumer le STF, il ne doit y 
avoir aucune modification lors de 
son démarrage, et si c’est le cas 
nous pourrons passer au test logiciel 
de la carte. 


TEST DE LA CARTE DE 
CONVERSION A/N-N/A 


La programmation de cette carte 
s’effectuant de la même manière que 
la carte d’entrée/sortie tout ou rien, 
nous ne reviendrons pas sur les prin- 
cipes de programmation qui ont été 
exposés dans le n°38 de ST MAG. 
NOTA : Toutes interventions sur les 
cartes devront être effectuées après 
la mise hors tension du STF et des 
cartes interfaces. 


Programmer ensuite à l’aide des 
straps : 

a) la carte interface E/S dans le 
mode 8 bits. 

b) la carte d’entrée/sortie de façon à 
obtenir : 

- le CNA POUTO à l'adresse $FB0000 
- le CNA POUT1 à l'adresse $FB0800 
- le CAN PINO à l'adresse $FA0001 
- le CAN PIN à l'adresse $FA0000 
- Installer les straps J0,J1,00,01 


Connecter l'interface au STF, ali- 
menter l'interface ouis le STF. Bran- 
cher une source de tension variant 
entre 0 et 3 volts aux entrées INO, 
IN1 et régler celle-ci à O volt. Après 
avoir saisi et lancé le programme 
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décrit par la figure 12, les valeurs 
lues à l’aide des convertisseurs A/N 
doivent varier de façon proportion- 
nelle à la tension présente aux 
entrées INO, IN1: $00 pour 0 volt, 
$80 pour 1.23 volt, $FF pour 2.46 
volts. À chaque appui de la touche 
‘SPACE la valeur affectée aux 
convertisseurs N/A est incrémentée, 
faisant varier proportionnellement la 
tension présente aux sorties OUTO, 
OUT1: 0 volt pour $00, 1.23 volt 
pour $80, 2.46 volts pour $FF. Cette 
vérification sera effectuée à l’aide 
d’un volmètre numérique connecté 
sur les sorties OUTO et OUT1. 


Si pour la valeur binaire $FF, on 
n'obtient pas la tension de 2.46 volts 
en sortie, il faut agir sur le potentio- 
mètre P3 pour la sortie OUTO et P4 
pour la sortie OUT1. 


Grâce au programme composé de 
deux parties, une écrite en Basic 
GfA (figure 13), l’autre écrite en 
assembleur Profimat ST (figure 14), 
vous pourrez utiliser votre STF en 
tant qu'échantillonneur de son 
stéréo 8 bits. Pour cela, il faudra : 
- Saisir les deux programmes, 
assembler le programme machine 
en mode PC-relatif pour obtenir un 
programme exécutable relogeable. 
- Configurer la carte de conversion 
A/N, N/A : 

* Gamme de signal d'entrée 0 à 
2.46 volts ; 

* Gamme de signal de sortie O à 
2.46 volts ; 


* Cavaliers JO, J1, O0, Of non 
enfichés (Mode AC) ; 


* Cavaliers en position S (Mode * 


bipolaire) ; 
* Définir les adresses des conver- 
tisseurs : 
le CNA POUTO à l'adresse $FB0000 
le CNA POUT1 à l'adresse $FB0800 
le CAN PINO à l'adresse $FA0001 
le CAN PIN1 à l'adresse $FAO000. 


Ce programme vous permet 
l'échantillonnage de son, le transfert 
des échantillons sur disque, ainsi 
que le test de la carte. La fréquence 
d’ échantillonnage est à sélectionner 
parmi 12 valeurs prédéfinies entre 
5000 Hz et 50000 Hz. L'échantillon- 
nage du son pourra être effectué en 
mono ou en stéréo suivant la taille 
mémoire disponible. Les fréquences 
de coupures des filtres passe bas 
ont été définies pour une fréquence 
d'échantillonnage supérieure à 
12000 Hz. Donc si vous désirez tra- 
Vailler à des fréquences inférieures, 
il faudra recalculer les fréquences 
de coupure des filtres. 


CONCLUSION 


Nous voici arrivés au terme de la 
série d'articles consacrée aux cartes 
d'entrées/sorties pour les STF 
520/1040. Espérons qu’elle aura 
permis de vous ouvrir de nouvelles 
frontières dans l’utilisation de votre 
ordinateur favori. 
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NOMENCLATURE DES COMPOSANTS 
* CARTE DE CONVERSION A/N - N/A 


1C1,1C4,1C7,1C8,1C10,1C11 
IC2,1C5 


: TL 072 

: TLO71 

1C3,1C6 : AD 7524 (ANALOG DEVICES) 
1C9,1C12 : AD 7575 (ANALOG DEVICES) 
1C13 : 74HC132 


R1,R2,R4,R5,R7,R8,R9,R13,R16, R17,R19,R20,R22,R23, 
R24,R27,R33,R34,R36,R37,R40,R41,R44 ; 
R3,R6,R18,R21,R35,R38,R42, R45 
R12,R26,R32,R39 
R11,R15,R25,R29 

R14,R28 


10 Kohms 

: 20 Kohms 

: 1 Kohms 
4.7 Kohms 
2,2 Kohms 


C1,C8,C22,C31 4.7 UF 16 volts Tantale 
C4,C11,C20,C29 : 180pF 
C2,C9,C18,C27 FeTRE 
C3,C5,C10,C12,C19,C21,C28,C30 : 47nF 
C6,C13 : 22pF 
C16,C24 : 12PF 
C7,C14,C17,C25,C37,C38 10uF 16 volts 
C15,C23,C26,C32,033,C34,C35, C36,C39, C40: 100 nF 


Di : 1N4148 

L1,L2 : Selft 100 uH 

P1,P2,P3,P4 Potentiomètres multitours 20 Kohms verticaux 
: Quartz 4 MHz 
: Connecteur 50 broches Mâle à 90° 


BBP1-BBP2 : Barrettes bas profil à 2 rangées 4 contacts avec 2 straps femelles. 
BBP3-BBP4 : Barrettes bas profil à 2 rangées 5 contacts avec 2 straps femelles. 
BBP5-BBP6 : Barrettes bas profil à 2 rangées 2 contacts avec 1 strap femelle. 

J0-J1-00-O1 : Barrettes bas profil à 2 rangées 1 contact avec 1 strap femelle. 


1 supports tulipes 14 broches 
8 supports tulipes 8 broches 


2 supports tulipes 18 broches 
2 supports tulipes 16 broches 
4 fiches femelles de type RCA 


* ALIMENTATION 


D1-D2-D3-D4 
C1-C4 
C2-C5 
C3-C6 
R1-R2 


: 1N 4007 LD1 
:1000 uF 25 volts LD2 
:330 nF BO1-BO2 
:100nF Rgi 

: 220 ohms Rg2 


: Led rouge diam. 3 mm 
: Led verte diam. 3 mm 

: Borniers bas 3 bornes 
: UA 7805 

: uA 7905 
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\ Initialisation des variables utilisées dans le programme 
Cnar%=54FB0000 










V11%=0 


Me1$="- VALEUR DE L'OCTET AFFECTE À LA CNA D'ADRESSE :” 
Me2$="- VALEUR DE L'OCTET LU À LA CAN D'ADRESSE Hi 


.n 





Print At(4,2),"* TEST DE LA CARTE DE CONVERSION A/N-N/A *" 
Print At(8,22),"* TOUCHE ‘SPACE’ => INCREMENTATION OCTET" 
Print At(8,23),"* TOUCHE ‘F’ => ARRET DU TEST” 


Affiche valeur out 
Void Peek(Cnar$+V113%*2) 
Void Peek(Cnal$+V11%*2) . 


While Fin$<o1l 
Touche$=Inkey$ 
If Touche$=” “ Then 
If V11$=256 Then 
V113=0 
Endif 
@Affiche valeur out 
Void Peek{Cnar%+V11%*2) 
Void Peek{Cnal%+v113*2) 
Inc V11% 
Endif 
Vil3=Peek (Canr#) 
Vi2%=Peek (Canl$) 
Vi3$=Dpeek (Canr$) 
Affiche valeur in 
1f Touche$="F” Or Touche$="f” Then 
V11%=0 
Fin%=1 
Endif 
Wend 
Void Peek(Cnar+) 
Void Peek(Cnal#) 


\ 





















Procedure Affiche valeur out 

Print At(67,10);B1$ 

Print At(67,11);B1$ 

Print At(5,10);Me1$;Hex$ (Cnar%) ,Hex$ (V11%) 
Print At(5,11);Mel$;Hex$ (Cnal$) , Hex$ (V11#) 
Return 


Procedure Affiche valeur in 

Print At(67,14);B1$ 

Print At(67,15);B1$ 

Print At(67,16) ;:B1$ 

Print At(5,14);Me2$;Hex$ (Canr%) ,Hex$ (Vil$) 
Print At(5,15);Me2$;Hex$ (Can13) ,Hex$ (Vi2%) 
Print At(5,16);Me3$;Hex$ (Canr%) ,Hex$ (Vi3%) 
Return 








“FIGURE” 13 : LISTING GFA 


VORÉARARÉRRRRAARARÉRRRRRRARRRRERRRRRRAREREERRRARE 


\ x Réservation de la mémoire pour le stockage * 
\ * du code machine et des échantillons * 
VORARARRRERRRRRRRERRRRRARRRRRRREARERRRRARERRARRR 
Dim A$(500),Pdiv$ (20), Sdiv$ (20) ,Pd% (8) 
Taille%=Fre (0) -50000 
Dim B$(Taille+/4) 
Code$=Varptr (A+ (0)) 

=100000 
Echan+=-Varptr (B#(0)) 
F_echant=Echant+Lent 
VORRARERRRARARERAREERÉRRERRRARRE 


' * Chargement du code machine * 
VORRKARRRERARAARRRÉRRARARARRREARK 


Bload “CODEMAC1.PRG”, Codes 


V ORKKARRRARERRARARARÉERARRRRRRALERRRRRARERRERRARERRERX 
‘ * Initialisation des prédiviseurs et diviseurs * 
‘ * pour le MFP. Valeurs du prédiviseur PDIV* :1=>%4,* 
\ + 2=»$10,3=>916,4=>350, 5=>%64, 6=>5100, 7=>$200 i 
 * Valeur diviseur O<DIV#<255 LS 
VORRAARRARARARRARRÉRÉRÉRÉREARARRARERRARRRERRRRENRARAREEX 
Famfp=2457600 

Pd$(1)=4 

Pd$ (2)=10 


Pd$(3)=16 
Pd$ (4)=50 
Pd$ (5)=64 
Pd$ (6)=100 
Pd$(7)=200 


Pdiv$ (0)=1 
Pdivé(1)=2 
Pdiv$(2)=1 
Pdiv$(3)=1 
Pdiv$ (4)=2 
Pdiv$ (5)=2 
Pdiv$ (6)=1 
Pdiv(7)=1 
Pdiv$(8)=1 
Pdivé (9)=4 


sdiv$ (0)=12 
Sdivs (1)=5 
Sdiv$ (2)=14 
Sdiv$ (3)=15 
Sdiv® (4)=7 
Sdivs (5)=8 
sdivs (6)=24 
Sdivs (7)=31 
Sdivs (8)=41 
Sdiv® (9)=5 
Sdivs (10)=5 
Sdivs (11)=7 
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Procedure Replay 
Print At(15,14);"Lecture en cours..." 
Print At(15,15); "Retour au menu principal => \ESC'” 
Lpoke Debut$+4,Echan$ 
Lpoke Debut$+8,F echan$ 
Key$=Inkey$ Lpoke Debut#+12,Frqÿ 
Key+=Val (Key$) Lpoke Debut$+16,1 
If Key*>0 And Key%<8 Or Key$=9 Then Lpoke Debut$+20,Md$ 
On Key$ Gosub Sample,Replay,Monit, Save Call Debut# 
On Key%-4 Gosub Load, Mode, Set frq,Rien,Fin Return 
Print At(15,14);String$(50," “); \ 
Print At(15,15);String$(50,” ‘); Procedure Monit 
Print At(15,14);"Monitoring en cours..." 
Print At(15,15); Retour au menu principal => ‘ESC'" 
Lpoke Debut#+4,Echant 
Lpoke Debut3+8,F echant 
Lpoke Debut#+12,Frq$ 
Lpoke Debut++16,2 
Print At(17,2);"TEST DE LA CARTE DE CONVERSION” Lpoke Debut3+20,Md% 
Print At(4,4);"—— FONCTIONS DISPONIBLES —-" Call Debut$ 
Print At(4,6);"- ENREGISTREMENT D'UN ECHANTILLON.. Return 
Print At(4,7);"- LECTURE D'UN ECHANTILLON À 
Print At(4,8);"- TEST Procedure Save 
Print At(4,10);”- SAUVEGARDE D'UN ECHANTILLON Fileselect “\*,*”,// Files 
Print At(4,11);"- CHARGEMENT D'UN ECHANTILLON If File$<>'”" Then 
Print At(45,6);"- MODE MONO/STEREO Nfile$=Files 
Print At(45,7);"- FRÉQUENCE D'ECHANT... Print At(15,14);"Sauvegarde en cours..." 
Print At(45,8);"- FIN DE SESSION Bsave Nfile$,Echan, Lens 
Print At(45,9);”- FRÉQUENCE D'ECHANT.” Endif 
Print At(45,10);" (5 Khz <Fe< 50 Khz) :” Return 
Print At(45,11);"- 4 \ 
Print At(1,12);String$(80,” ”); Procedure Load 
Print At (68,11) ; "STEREO” Fileselect “\*.*”,Nfiles, Files 
If File$<>’” Then 
Nfile$=Files 
Print At(15,14);"Chargement en cours..." 


Procedure Set_frq Bload Nfile$,Echant 
Inc Infrq$ Endif 
If Infrqÿ>1ll Then Return 
Infrg#=0 à 
Endif Procedure Mode 
Af_frqt=Fanfp/(Pd% (Pdivé (Infra) )*Sdivé (Infrq)) If Mdÿ=0 Then 
Frat=256*Sdiv® (Infrq$)+Pdiv® (Infrq) Print At(68,11);"MONO “ 
Md3$=1 
Else 
Print At(68,11);'STEREO" 
Procedure Aff frq Md=0 
Print At(68,10);" Endif 
Print At(68,10);Af frq$;" Hz” Return 
Procedure Rien 
Return 
Print At(15,14);"Echantillonnage en cours...” \ 
Print At(15,15);"Retour au menu principal => 'ESC'" Procedure Fin 
Lpoke Debut$+4,Echanÿ Fint=0 
Lpoke Debut$+8,F echant Return 


Lpoke Debut$+12,Frqÿ 
Lpoke Debut#+16, 0 
Lpoke Debut$+20,Md$ 
Call Debut* 

Return 

\ 
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FIGURE 14” : le listing assembleur 


DLL LES) REGISTRES DU MFP **xx4x*x 

EQU $FFFA00 

EQU MEP+$03 

EQU MFP+$07 

EQU MFP+$09 

EQU MFP+$0B 

EQU MPF+$0F 

EQU MFP+$13 

EQU MFP+$15 

EQU MFP+$17 

EQU MFP+$19 

EQU MEP+$1F 

EQU $134 
HALLE REGISTRES DE L'ACIA LISE: 
ACCONT  EQU SFFFCO0 
ACDATA EQU SFFFCO2 
LAXRKXX PORT CARTOUCHE LES ES: 
CANR EQU $FA0000 
CANL EQU $FA0001 
CNAR EQU $FB0000  ; can voie OUTO 
CNAL EQU $FB0800 ; can voie OUTI 
LAARRXX FONCTIONS GEMDOS LELLE SE: 
F SUPER EQU $20 
;*XKXXX FONCTIONS XBIOS ***kx4% 
ID CLV EQU $19 
PXARKKX PROGRAMME Litiseé) 
TEXT 


; can voie IN0 
; Can voie INI 


bra run 
“kX*kk** ZONE DE DONNEES *****x4 


; zone de transfert 

: des valeurs fournies 
; par le basic GFA 

; 5 longs mots 


Hhibhhh 





s_freq-dt (al), d0 








set_freq ;installation fréquence d'éch. 
val mfp validation du MFP 

#52500,sr ;validation IT MFP 

s deb-dt(al),a6  ;a6=début échantillon 


s_fin-dt (al) ,d6 
CANR, a2 


:dé=fin échantillon 
;affectation des 


CANL, a3 ;adresses 

CNAR, a4 ;des convertisseurs 
CNAL, a5 ; 

#$00f£, d5 ;d5=masque d'isolement 


fin int-dt(al) 
s_ftc-dt (a1) ,d0 
#$02, d0 

fin 

samp_rep 

fin int-dt (al) 


;flag fin interruption=$FF 


#si Ne fonction >2 sortir 


;si Nefonction-2 alors 
flag fin interruption=$00 


s md-dt (al) 

md stereo si mode stéréo 
#$00, d0 ;si mode mono 
cxl 


m sample (pc), a0 
set_ int 


#$01, d0 

cx2 

m replay (pc) ,a0 
set int 


m monit (pc) ,a0 


set_ int 


4500, d0 
cxil 


;et Ne fonction=0 alors 
senregistrer 


:et Nefonction=i alors lire 


:et Nefonction=2 alors test 


se Fesses 


> + 


8 
œ 


$12,$1a 
dc.b $08,$00 


ds.b 1 


; sauvegarde pile utilisateur 
; zone sauvegarde registres MFP 


Chaîne inhibition souris/joy. 


Chaîne validation souris/j0y. 


‘flag fin interruption 


;**XX4k* DEBUT DU PROGRAMME ***k*xx 


run: 


movem.l aû-a6/d0-d7,-(sp) ;sauvegarde contexte 


bsr 
cir.l 
move .W 
trap 
addq.1 
lea 
move.l 
bsr 
move .w 
lea 
bsr 


inib clv 

- (sp) 

#F SUPER, re (sp) 
#501 

#506,sp 

dt (pc),al 
d0,spile-dt (al) 
sauve mfp 
#$2700,sr 

int _nul (pc) ,a0 
setint 





inhibition souris/joystick 


;passage en mode superviseur 


. Sauvegarde pile utilisateur 
; sauvegarde registres du MFP 
inhibition des interruptions 


;installation vecteur d'IT MFP 





s_sample (pc) ,a0 
set int 


#$01, d0 

cx12 

s replay(pc),a0 
set int 


s_monit (pc), a0 


setint sinstallation du vecteur d'IT MFP 
en fonction de l'opération 





fin int-dt(al) ;tâche de fond 

boucle ;attente de fin de l'IT 
#$00,ACCONT 

boucle 

ACDATA, d0 

#501, d0 

boucle attente d'appui sur ‘Esc' 





nove.w 
bsr 
bsr 


movem.l 
rts 


#$2700,sr ;inhibition des IT 
rest mfp irestitution registres du MFP 
rest clv validation souris/joystick 


#$00, ACCONT 

suite 

ACDATA, d0 

v clv ivide le tampon clavier 


#$2000,sr ;validation de toutes les IT 

dt (pc), al 

spile-dt(al},-(sp) 

#F_ SUPER, - (sp) 

#$01 

#$06, sp retour mode utilisateur 

(sp)+,a0-a6/d0-d7 ;restitution contexte 
retour au basic 


;**XX#4* Routines d'interruptions ***#*x* 


rte 


(a6)+,d7 ;lecture échantillons mono 
d6,a6 

fin intp 

d5,d7 

d7,d7 

0 (a4,d7.w),d7 


#$2700,sr fin IT 
int nul, a0 

setint 

fin int-dt(ai) 

#$2500,sr 


(a6)+,d7 lecture échantillons stéréo 
(a6)+, dd 


0(a4,d7.w),d7 
O(a5,d4.w),d4 


(a2), (a6)+ 
d6,a6 
fin intp 


enregistrement échant. mono 


(a2), (a6)+ 
d6,a6 
fin intp 


(a2),d7 :test mono 
d5,d7 

d7, d7 

0 (a4,d7.w) ,d7 


enregistrement échant, stéréo 


(a2),d7 test stéréo 
(a3),d4 

d5,d7 

d5, d4 

d7,d7 

d4, dd 

O(a4,d7.w),d7 

0(a5,d4.w) ,d4 


IERA,mfpmen-dt (a1) sauvegarde registres 
IERB, mfpmem+1-dt (a1) ;du MFP 

IMRA, mfpmem+2-dt (al) 

IMRB, mfpmem+3-dt (al) 

TADR, mfpmem+4-dt (al) 

TACR, mfpmem+5-dt (al) 

VECTEUR, mfpmem+6-dt (a1) 


mfpmem-dt (al), IERA ;restitution registres 
mfpmemt1-dt (a1),IERB ;du MFP 

mfpmem+2-dt (al),IMRA 

mfpmem+3-dt (al), IMRB 

m£pmem+4-dt (al) ,TADR 

mfpmem+5-dt (al), TACR 

mfpmem+6-dt (a1), VECTEUR 


sx, d0 ;affectation de l'adresse de 
#$2700,sr la routine d'interruption 
a0, INTVEC ;au vecteur IT MFP 

d0,sr 


;dévalidation souris/joy. 


deval clv(pc) 
#$01,- (sp) 
fte clv 


vald clv(pc) 
#$00,- (sp) 


validation souris/joy. 


#ID CLV,- (sp) 
#$0e 
#508,sp 


#0, TACR ;réglage de la fréquence 
#SOOOOÉÉEÉE, d0 ;d'échantillonnage 

d0, TACR 

#8, d0 

d0,TADR 


#520, IMRA mise en route du MFP 
#$00, IMRB 

#20, IERA 

#500, IERB 

#$03, VECTEUR 





















































> eYTY 
>= pu— 
>= p— 


\ 


Le Soundtracker est l’un 
des programmes de 
musique les plus utilisés 
sur l’Amiga. Il permet de 
composer des musiques à 
l’aide d'instruments 
digitalisés, le son étant par 
conséquent rendu plus 
réaliste. Cet article et le 
source en assembleur 
l’'accompagnant vous 
permettront de mieux 
comprendre le principe du 
Soundtracker et de son 
émulation sur ST. 


Il faut savoir en effet que les 
modules n'ont aucunement besoin 
d’être modifiés pour être rejoués par 
le ST : il vous suffit de les transférer 
de l’Amiga sur le ST à l’aide d'un 
logiciel comme Dos-2-Dos (Central 
Coast Software). 


LES ECHANTILLONS SONORES 


Pour une définition de l'échantillon 
sonore, nous vous invitons à vous 
reporter au numéro 41 de ST Mag, 
page 96. Rappelons simplement 
que ceux-ci sont stockés en mémoi- 
re sous forme d’octets. Un son, quel 
qu'il soit, est toujours défini par trois 
paramètres : 


Le timbre : il s’agit de la vibration de 
base dans un son. || détermine sa 
nature et lui est propre. Par exemple 
le Commodore 64 propose cinq types 
de timbres : sinusoïdale, triangulaire, 
dents de scie, carrée et bruit blanc. 


La fréquence : c'est le nombre de 
vibrations par seconde. La fréquen- 
ce est exprimée en hertz (inverse du 
temps d'une vibration). Elle détermi- 
ne, par conséquent la hauteur d’un 
son. Notons que la bande passante 
de réception de l'oreille humaine va 
de 30 Hz à 18000 Hz chez un 
homme jeune (en moyenne). 


L'intensité : elle représente le volu- 
me du son. La zone audible s'étend 
de 1 à 120 dB (l'intensité normale 
d'un son est de 80 dB). 


On vient de voir plus haut que la fré- 
quence définit la hauteur d’un instru- 
ment. Par exemple, la note La est à 
une fréquence de 440 Hz. Dans une 
octave, on dénombre 12 demi-tons 
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LE SOUNDTRACKER 





ET LE ST 


qui sont les suivants: Do (C), Do 
dièse (C#), Ré (D), Ré dièse (D#) 
Mi (E), Fa (F), Fa dièse (F#), Sol 
(G), Sol dièse (G#), La (A), La dièse 
(A#), Si (B). Pour passer d'un demi 
ton au suivant (ou au précédent), on 
multiplie (ou on divise) la fréquence 
par 2 . II faut bien évidemment 
répéter l’opération autant de fois 
qu'il y a d'étapes (exemple: en pas- 
sant du La au Sol, on multipliera le 
fréquence 3 fois par2 ). 


Voici les fréquences de quelques 
notes: 





Fréquence 


261.7 
277.2 
293.7 
311.2 
329.7 
349.3 
370.0 
392.0 
415.3 
440.0 
466.2 
493.9 
523.3 











En général, les instruments di 
Soundtracker Amiga sont digitalisés 
à une fréquence de 8.4 Khz, pour ur 
Do de fréquence 261.7 Hz (on ne 
reviendra pas sur la distinction qu’ 
y a à faire entre la notion de fré 
quence d'échantillonnage et celle de 
fréquence d'une note). 


Sur l'Amiga, c’est Paula qui se char 
ge de la restitution des sons. Pou 
lui faire jouer un sample à une fré 
quence donnée, il faut lui trans 
mettre le nombre de cycles d'attente 


À — ——— 





entre la restitution de deux octets 
consécutifs: c'est la période. L4 
durée d'un, cycle de Paula est de 
2,79365.10 secondes. La fréquen- 
ce de restitution (fr) se calcule donc 
en fonction de la période (t) de la 
manière suivante: 


1 
fr = - 
t*2,79365.10 


Par exemple, pour une fréquence 
de restitution de 8.4 Khz, on trouve 
une période égale à 428 ($1AC). 
Nous vous invitons à vous reporter 
à la Bible de l'Amiga pour plus de 
détails (éd. Micro-Applications). 


On en déduit la table de correspon- 
dance suivante, table qui est 
d’ailleurs propre au Soundtracker 
Amiga: 





LA RESTITUTION DE PLUSIEURS 
SAMPLES SIMULTANEMENT 


Le Soundtracker de l'Amiga restitue 
des musiques sur 4 voies. || faut 
Savoir avant toute chose qu'il ne 
s'agit pas, en les jouant sur le ST, 
de rajouter une voie aux trois autres 
existant déjà: rappelons en effet que 
lorsque le ST joue un sample, ses 
trois voies sont occupées (cela est dû 
à la conception même du Yamaha). 


Sur le ST, il va donc falloir faire faire 
le gros du travail par le 68000: celui- 
ci va en fait mâcher le travail pour le 
Yamaha, qui se charge bien sûr de 
la restitution sonore en elle-même. 


N'importe quel son de la nature 
Voyage dans l'air sous forme de 
Vibrations. Lorsque 2 sons parvien- 


nent en même temps à l'oreille 
humaine, leurs vibrations sont addi- 
tionnées pour n’en former qu'une; le 
cerveau humain se charge alors de 
les séparer. Dans le cas du ST, tout 
va se passer de la même façon: le 
68000 va, à partir des samples, 
fabriquer l'onde finale en procédant 
à leur addition, c'est-à-dire que les 4 
voies ne seront en fait restituées 
que sous la forme d’un sample. || n'y 
a donc pas de miracle: les 4 voies 
ne sont pas restituées indépendam- 
ment les unes des autres. 


Pour le ST-E, c'est différent: en 
effet, sur cette machine, il est pos- 
Sible de jouer deux samples simulta- 
nément (un à gauche et un à droite). 
Sur chaque voie, on ne procédera 
donc qu'à l'addition de deux 
samples seulement, au lieu de 
quatre sur les ST, sauf si on veut 


C 








faire un Soundtracker huit voies 
(Oktalyzer)! 


-36.1 
-30.1 
-26.6 
-24.1 
-22.1 
-20.6 
-19.2 
-18.1 
-17.0 
16.1. 
15.3 
-14.5 


-11.5 

18 -11.0 

19 -10.5 
20 -10.1 
21 97 
22 -9.3 
23 -8.9 
24 -8.5 
25 -8.2 
26 -7.8 
27 75 
28 70 
29 -6.9 
30 -6.6 
31 -6.3 

32 














© © -J O O1 R CO ND 


TE RS Eu À 
© © = © 






— 
o 


- 85- 


17 33 


34 -5.5 
35 -5.2 
36 -5.0 
37 -4.8 
38 4,5 
39 -4.3 
40 4.1 
41 -3.9. 
42 -3.7 
43 -3.5 
44 -3.3 
45 -8.1 
46 -2.9 

+ 47 27 





LES VARIATIONS DE VOLUME 


Il s’agit d'un aspect non négligeable 
du Soundtracker, puisque 2 com- 
mandes interviennent sur le volume 
d'un sample (Commandes A et C, 
voir plus loin). Les meilleures 
musiques Soundtracker (qui sont 
toujours les plus récentes!) utilisent 
cette possibilité de variation de volu- 
me pour rendre des effets des plus 
réussis. À nous donc d'émuler ces 
variations de volume sur ST... 


Il faut distinguer entre le volume 
général du sample et l'enveloppe. 
Celle-ci peut se définir comme 
représentant les niveaux instanta- 
nés de volume (intensité, voir plus 
haut). En changeant l'enveloppe, on 
peut obtenir des sons radicalement 
différents, à partir d'un même 
sample (cf. Mad Max). 


Sur le Soundtracker, on peut diffici- 
lement intervenir sur l'enveloppe, 
mais la commande A (installée à 
partir de la version 2.3 par Mnemo- 
tron de Spreadpoint) en permet tou- 
tefois une approche. 


Sur l’Amiga, il y a 65 niveaux de 
volume (de 0 à 64 inclus) par voie. 
Le décibel (dB) est l'unité de mesure 
couramment utilisée; en schémati- 


sant, il représente le rapport entre le 


niveau de sortie d’un son et son 
niveau de référence. On trouvera ci- 
après un tableau des correspon- 
dances en dB pour chaque niveau 
de volume de l’Amiga. 





-5.8 


















48 





















































Sur le ST, et à l'aide de ce tableau, 
nous avons dressé une table com- 
portant les valeurs de chaque octet 
d'un sample pour chaque niveau de 
volume de l’Amiga. 


LE FORMAT D'UN MODULE 


Format d’un module Soundtracker à 
15 instruments (les valeurs en hexa- 
décimal sont precédées d’un “$”): 

- En-tête (nom de la musique et 
informations instruments) 

- Séquence (Ordre des patterns à 
jouer) 

- Partition (les patterns) 

. - Sons (samples). 


A noter que toutes les adresses 
données ci-après seront relatives au 
début du module. Par exemple: 
l'octet MOD+$200 représente le 
512ème octet du module. 


En-tête 

+ MOD + $0: 20 octets qui contien- 
nent le nom de la musique en 
ASCII. 


+ MOD + $14: 30 octets autant de 
fois qu'il y a d'instruments, c’est-à- 
dire 15 fois. Voici le détail du conte- 
nu de ces 30 octets: 


22 octets pour le nom de l’instru- 
ment. 

2 octets pour la longueur (length), 
exprimée en mots. 

2 octets pour le volume (de $00 à 
$40). 

2 octets pour le repeat: une fois que 
le sample a été joué sur toute sa 
longueur, le Soundtracker le rejoue 
à partir de la valeur indiquée par ces 
deux octets. Cette valeur est aussi 
exprimée en mots. 

2 octets pour le repeat length: lon- 
gueur à rejouer lors du repeat. Si 
elle est à 1, le Soundtracker boucle 
sur le même octet: le sample s'arrê- 
te. Valeur exprimée en mots. 


Séquence 

+ MOD + $1D6: 1 octet. Nombre de 
positions (nombre de patterns à utili- 
ser pour jouer la musique une seule 
fois). Le maximum est fixé à 128 
patterns ($7F). 


+ MOD + $1D7: valeur souvent 
égale à $78, mais ne correspond à 
rien dans la version actuelle. 


+ MOD + $1D8: 128 octets corres- 


pondant aux numéros des patterns 
à jouer. Ex: 00, 00, 01, 01, 02, 02, 
02. Les patterns à jouer seront donc 
les suivants: 0, 0, 1, 1,2, 2,2. 


Partition 

+ MOD + $258: au minimum un pat- 
tern de 1 Ko, au maximum 128 pat- 
terns. Un pattern a 64 lignes, chacu- 
ne correspondant aux informations 
des voies 0, 1, 2 et 3. Un pattern est 
égal à 1024 octets en mémoire, 
donc une ligne vaut 16 octets, et 
une voie, 4 octets. 

Ces 4 octets sont de la forme sui- 
vante: 

2 octets pour la note, comprise entre 
$71 et $358: c'est la période Amiga. 
2 octets pour l'instrument et la com- 
mande, organisés sous la forme sui- 
vante: $XYZZ. 


X représente le numéro de l'instru- 
ment, entre $1 et $F. Si cette valeur 
est égale à 0, c’est l'instrument pré- 
cédemment utilisé qui sera réutilisé. 
Y représente le numéro de la com- 
mande: 0, 1, 2, 3, 4, A, B, CC, D,E, 
ou F. - 

Enfin, ZZ représente l’octet de para- 


mètre de la commande. 


Nous n'allons détailler, dans les 
paragraphes suivants, que les com- 
mandes implémentées jusqu’à la 
version 2.5. On sait en effet que le 
Noisetracker 2.0, qui n'est pas enco- 
re commercialisé, en comportera de 
nouvelles. On dénombre donc les 
commandes suivantes: 


$0 = Aucun effet, ou arpège 
$1 = Portamento Up 
$2 = Portamento Down 
$3 = Tone-Portamento 
$4 = Vibrato 

$A = Volume Slide 

$B = Position Jump 

$C = Set Volume 

$D = Pattern Break 

$E = Set Filter 

$F = Set Speed 


Etudions-les plus en détail mainte- 
nant, après avoir noté (sous forme 
de rappel), qu'un mot vaut deux 
octets. 


+ 0: aucun effet, ou arpège. Si l'octet 


de paramètre est différent de zéro, 
alors un arpège sera joué. Premier 
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quartet: premier incrément en fré- 
quence. Deuxième quartet: deuxiè- 
me incrément en fréquence. L'arpè- 
ge consiste à faire varier la note 
jouée à l'aide de ces deux quartets. 


+ 1: Portamento Up. La valeur (de 
$00 à $FF) indique la vitesse de 
l'incrémentation de la fréquence. 


+ 2: Portamento Down. La valeur (de 
$00 à $FF) indique la vitesse de la 
décrémentation de la fréquence. 


+ 3: Tone-Portamento. La note pré- 
cédant la commande correspond à 
la note d'arrivée et l'octet de com- 
mande, la vitesse à laquelle le pas- 
sage se fait à partir de l'ancienne 
note. 


. 4: Vibrato. Le premier quartet 
représente la vitesse du vibrato, le 
deuxième son amplitude. Si on veut 
continuer l'effet, il suffit de remettre 
la commande 4 seule. 


+ A: Volume Slide. L'effet est ici le 
même que pour le portamento, saui 
qu'il s'agit du volume. La représen- 
tation est toutefois différente: Si le 
quartet supérieur est non-nul, sa 
valeur indique la vitesse à laquelle 
le volume est augmenté, et inverse- 
ment, c'est-à-dire que si c'est le 
quartet inférieur qui est non-nul, sa 
valeur indiquera la vitesse à laquelle 
le volume est baissé. Dans le cas où 
les deux valeurs sont non-nulles, 
c'est le quartet supérieur qui sera 
pris en compte: Le volume sere 
donc augmenté. 


- B: Position Jump. L'octet indique le 
numéro de la séquence qui sera 
jouée à partir de la prochaine lecture 
de note. 


+ C: Set Volume. L'octet indique le 
volume auquel doit être joué l'instru- 
ment. 


« D: Pattern Break. Le pattern es 
coupé, et on passe à la séquence 
suivante. 


+ E: Set Filter. Il n’a pas été implé 
menté dans cette version; il s’agi 
d’une commande qui ne fonctionne 
que sur certains A500 et A2000, e 
de toutes façons pas sur les A1000 
Son utilisation est par ailleurs 


RE RE LCR 


déconseillée par les auteurs du pro- 
gramme. $E01 = Filtre et Power’ 
LED déconnectés. $E00 = Filtre et 
Power LED connectés. 


* F: Set Speed. L'octet de paramètre 
donne la nouvelle vitesse: nombre 
de 50ème de secondes (VBL) 
s'écoulant entre deux lectures de 
notes consécutives. La valeur par 
défaut est $F06, mais elle peut aller 
de $F01 (rapide) à $F1F (lente). 
Jusqu'à la version 2.4, la vitesse la 
plus lente était de $OF. 


Pour tenter de clarifier cette partie 
qui peut sembler ardue, nous allons 
prendre un exemple: C#3 1C25 
signifie que l'instrument 1 va être 
joué à la note C#3, et à un volume 
de 25. En mémoire, on aura: $00CA 
1C25. 


Si vous voulez mieux comprendre 
comment toutes ces commandes 
fonctionnent, vous pouvez modifier 
quelques modules vous-mêmes, et 
ainsi vous rendre compte des effets 
que le Soundtracker peut reproduire. 


Sons 

On trouve l'adresse du premier 
Sample par un calcul relativement 
simple: MOD + $258 + Nbre de pat- 
terns * 1024. 


Nbre de patterns correspond au 
total des patterns utilisés par la 
musique. Comme on connaît la lon- 
gueur du premier sample grâce à 
l'en-tête, il suffit de le rajouter à 
l'adresse précédemment calculée, 
et on obtient l'adresse du second 
Sample, etc. 


Nous en arrivons maintenant à la 
différence avec les modules à 31 
instruments. On les reconnaît grâce 
à MOD + $438, où se trouve la chaï- 
ne de caractère M.K. (Mahoney et 
Kaktus, les deux suédois de Norths- 
tar, fameux auteurs de Noisetrac- 
ker). 


Différences: 

* Dans l'en-tête, on trouve de la place 
Pour 31 instruments (au lieu de 15). 

* La séquence sera: MOD + $3B6 
Pour le nombre de positions et MOD 
+ $3B8 pour la table des patterns à 
jouer. 

* On trouve la partition à l'adresse 


MOD + $43C. Les patterns sont 
légèrement différents: dans la parti- 
tion, les 2 octets de la note contien- 
nent dans le bit 24, le bit 5 du numé:- 
ro de l'instrument. S'il est positionné 
à 1, il faut rajouter 16 au numéro de 
l'instrument. Ex: $11358, $1000 -> 
Instrument 17, note C, octave 1 
(représentation en mémoire). 


LE SOURCE ST 


Le source qui accompagne cet 
article a été programmé avec Dev- 
pac 2 (HiSoft). Il est relogeable, lais- 
se tous les registres de libres, et un 
petit programme l’utilisant est fourni 
en exemple. Les fichiers binaires 
sont calculés à l'aide de pro- 
grammes écrits en GfA Basic. 


Le premier de ces programmes per- 
met de calculer une table de fré- 
quence traduisant les périodes 
envoyées à Paula. A% est le facteur 
de prédivision du Timer À du MFP. 
B% est la Valeur du Data Register du 
Timer À (FRQ_DATA dans le source 
Assembleur prinipal). Ici, les deux 
valeurs sont fixées pour une fré- 
quence de restitution de 14 Khz. 


; Listing GfA 1 
Hidem 

A$=4 

B%=44 

Buffer$=Spaces (856*4) 
Frq=(1/(2.79365*10"-7))/(2.4576*10"6/ (AS*B%)) 


For I=1 To 856 


| Sounditracker ST 


Le second programme permet de 
recalculer les samples à différentes 
intensités. 


La routine jointe à cet article privilé- 
gie la qualité sonore et la facilité 
d'intégration dans vos propres pro- 
grammes Assembleur. Cette version 
n'est pas la plus rapide que nous 
ayons faite (loin de là), mais elle 
devrait suffire pour la plupart des 
applications. 


Une dernière chose: Vous pourrez 
bientôt composer des musiques 
Soundtracker directement sur votre 
ST, plusieurs éditeurs semblables à 
celui de l’Amiga étant en prépara- 
tion, dont certains en Domaine 
Public. 


Klaus BERG 
Stéphane CATALA 
Fabien MASSON 


Lpoke Varptr (Buffer$)+(I-1)*4,65536*Frq/I 


Next I 


Bsave “A:\14 KHZ.FRO”,Varptr(Buffer$),856*4 


Showm 





; Listing GfA 2 
Buf$=Spaces (64*256) 
For B%=0 To 255 

Poke Varptr(Buf$)+B5%,128 
Next B% 
For T$=63 Downto 1 

Read V®% 

For B%=0 To 255 


Poke Varptr(Buf$)+T$*256+B%, (B%-128) /Exp (V$/100)+128 


Next B% 


Next T$ 


Bsave “A:\VOLUME.BIN”,Varptr(Buf$),64*256 

Data 0,1,3,4,6,7,9,10,12,13,15,16,18,20,21,23 

Data 25,27,29,31,33,35,37,39,41,43,45,48,50,52,55,58 
Data 60,63,66,69,72,75,78,82,85,89,93,97,101,105,110,115 


Data 


Data 266,301 
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120,126,132,138,145,153,161,170,181,192,206,221,241 



















































































7 Routine écrite par Fabien MASSON et 

: Stéphane CATALA. 

; Voici quelques renseignements addition 
: nels sur la routine et ses buffers, qui 
; vous permettront de mieux comprendre le 
; programme: 


; VOICEx 

; voice+$0 (1 long mot): dernière ligne lue 
; dans la partition 

; voice+$4(1 long mot): adresse de l’ins- 

; trument utilisé 

: voice+$8 (1 mot): longueur de l'instru- 
ment en mots 

; voice+$A (1 long mot): adresse de la 

: partie du Sample a répéter 

: voice+$E (1 mot): repeat length en mots 

: voice+$10 (1 mot): période (=note) 

: voice+$12 (1 mot): volume 

: voice#$14 (1 mot): inutilisé 

: voice+$16 (1 octet): pour la commande 3 

: voice + $17 (1 octet): pour la commande 3 
: voice + $18 (1 mot): période (=note) 

; d'arrivée pour la commande 3 

; voice + $1A (1 octet): pour la commande 4 
: voice + $1B (1 octet): pour la comnande 4 


; CHIPx 

; chip#$0 (1 long mt): adresse de 

; l'instrument 

: chip#$4 (1 long mot): longueur restante 
: exprimée en octets 

; chipt$8 (1 mot): volume actuel 

: chip+$A (1 mot}: période (=note) 

; chip#$C (1 long mot): adresse de la par- 
; tie a répéter 

; chip#$10 (1: long mot): longueur de la 

- boucle exprimée en octets 


: Nous utilisons une table de volume au 

: format suivant: seuls les 6 bits de poids 
: faible sont utilisés dans chaque octet. 

; Cela a pour conséquence d'avoir une très 
; bonne qualité sonore. 


: Soundtracker Playroutine 


ERA PLAY 

; Adresse de la musique 
DC.L 0 

; Sortie désirée 

; 0 = Soundchip 

; 1 = ST Replay 

; 2=W16 

DC.W 0 


INIT 

MOVEM.L D0-A6, - (SP) 

; Adresse de la musique dans A0 
LEA ST CONNEXION(PC) , A0 
MOVE.L 12(A0),A0 

LEA OFFSET (PC), Al 

MOVE.W #$1D8,POS (Al) 

MOVE.W #$258,PATT(Al) 

MOVE.W #$F,NER(Al) 

; Module du type 31 instruments? 
CM.L #/M.K.',$43B (A0) 

BNE.S NO NEW MODULES 

MOVE.W #$3B8,POS (A1) 

















MOVE.W #543C,PAIT (Al) 
MOVE.W #$1F,NER(Al) 


NO NEW MODULES 
LEA ST CONNEXION (PC) , A0 
MVE.L 12(A0) ,A0 
LEA OFFSET(PC),AL 
ADD.W POS(A1), A0 
MOVEQ  #S7F,D0 
MVEQ  #0,D1 


; Nombre de patterns 
.LO0P1 

MOVE.L D1,D2 
SUBQ.W #1,D0 


.LOOP2 

MOVE.B  (A0)+,D1 

Oæ.B D2,D1 

BGT.S .LOOPI 

DEF D0,.100P2 

ADDO.B #1,D2 

sp  D2 

LSR.L  #6,D2 

LEA ST CONNEXION(PC) , A0 
MOVE.L 12(A0), A0 

ADD.L A0,D2 

LEA $14(A0),A0 

LEA  OFFSET(PC),Al 
MOVE.W  NER(AL) ,D7 

ADD.H  PATT(AL),D2 
MOVE.L D2, A2 

LEA  SAMPLESTARTS (PC) ,Al 
LEA  (A),A3 
MOEQ #$1E,D6 


-100P3 

CLR.L (A3)+ 
DERA  D6,.100P3 
SUBQ.W #1,D7 


.LOOP4 

CLR.L (A2) 

: Adresse de début des Samples 
MOVE.L A2, (Al)+ 
MOVEQ  #0,D1 
MOVE.W 22(A0),D1 
ISL.L #1,D1 
MOVE.L A2,A5 
ADD.L D1,A2 
MOVE.L A2, (Al) 
LEA (A2) ,A6 
MOVE.W 22(A0),D6 
BEQ.S .NO REVERSE 
SUBQ.W #1,D6 


: Inverse les Samples en mémoire 
.1L00P5 

MOVE.B (A5),D2 

MOVE.B -1(A6),D3 

; Met les Samples au format non signé 
EOR.B  #$80,D2 

EOR.B #$80,D3 

MOVE.B D3, (A5)+ 

MOVE.B D2,-(A6) 

DBRA  D6,.L00P5 


.NO REVERSE 

Q.W  #$0001,28(A0) 
ENE.S .LO0P6 

CLR.W  28(A0) 











LEA S1E(AO),A0 
DBRA  D7, .LO0P4 
LEA  CHIP(PC),A0 
LEA NO INS(PC),Al 
MOVEO #$7,D0 


MWVE.L Al, (A0)+ 
CLR.L (A0)+ 

CLR.L  (A0)+ 

DERA DO, .L00P7 
LEA  VOICES(PC), A0 


MOVEO #$1C-1,D0 
.100P11 
CIR.L (A0)+ 


DBRA  DO0,.L00P11 

; Initialise quelques Datas... 
LEA OFFSET (PC) , A0 
MOVE.B #56, SPEED (A0) 

CLR.B  SONGPOS (A0) 

CIR.B COUNTER (A0) 

CLR.W  PATTPOS (A0) 

LEA DIGIT_SKAP (PC) ; A0 
LEA (DIGIT+1000) (PC) ,Al 
MOVE.L Al, (A0) 

LEA .DIGIT(PC),Al 
MIWVE.L Al,4(A0) 

MVE.W #1000-1,D0 


:LO0P8 

MOVE.W #$400, (Al)+ 
DBRA  DO,.LO0P8 
LEA YET (PC) , A0 
CP.L #'CNX’, (A0) 


MOVE.B 5(A0),6(A0) 
MOVE.B 5(A0),7(A0) 
MOVE.B 4(A0),5(A0) 
LEA 8 (A0) , A0 
DBRA  D0,.L00P9 
LEA  VOLUME(PC),A0 
MOVE.N #$3FFF,D0 





.100P10 

MOVE.B (A0),D1 

: Transformation de la table de 
: volume en données 6 bits 
LSR.B  #2,D1 

MOVE.B D1, (A0)+ 

DERA  DO0,.L00P10 

LEA YET (PC) , A0 

MOVE.L #/CNX', (A0) 


.NO CHANGE 

; Yamaha reset 

MOVE.L #$00000000, SFFFF8800.W 
MOVE.L #$01010000, SFFFF8800 .N 
MOVE.L #$02020000, $FFFF8800.N 
MOVE.L #$03030000, SFFFF8800.N 
MOVE.L #$04040000, SFFFF8800 .W 
MOVE.L #$05050000, SFFFF8800 .W 
MOVE.L #$06060000, SEFFF8800.N 
MOVE.L #$O7O7ERFF, SFFEF8800 ,.W 
MOVE.L #$08080000, SFFFF8800.W 
MOVE.L #$09090000, SFFFF8800.W 
MOVE.L #$0A0A0000, $FFFF8800.W 
























; Sauve les interruptions: 
LEA STORE _INTERRUPTS (PC) , AO 
; VBL 
MOVE.L $70.N,$0 (A0) 

‘ Timer À 

MOVE.L $134.NW,$4 (A0) 
LEA SEFFEFFAO0 .NW, A1 
; LERA et IEREB 

MOVEP.W $7(Al),D0 
MOVE.W DO, $8 (A0) 
 IMRA IMRB VR et TACR 
MOVEP.L $13(A1),D0 

MOVE.L DO, $A (AO) 

CIRE $19(A1) 

;  TADR 

MOVE.B $1F(Al),$E (A0) 
; Mouse OFF 

MOVE.B #$12, SFFFFFCO2.W 
; Coupe le MFP 

1CLR.B  SEFFFFAO7.N 

CLRB  SPFEFFAU9.W 

’; Passage en fin automatique 

; des interruptions 
ECLR.B #93, SFFFFEALT.N 
CLR.B  SFFFFFAL9.W 
; Positionne le TADR (registre 
; de data du Timer A) 

MOVE.B  #FRQ DATA, SFFFFFAIF.W 

Le prédiviseur divisé par 4 

MVE-B #1,$FFFFFA19.W 

; Le Timer À est autorisé 

OR.B #32, SFFFFFAO7.N 































OR:B #32, SFFFFFAL3.N 
Mise en place du Timer À 
LEA © SOUNDCHIP(PC) A0 
"MOVE.L A0,$134.K 

LEA ST CONNEXION (PC) A1 
LEA 16(Al),Al 

QPW #1, (A) 

ENE.S MV167 

LEA ST REPLAY(PC), A0 






A0,$134.W 







#2, (A1) 
SOUNDCHTP ? 
MV16 (PC) , A0 
MVE.L A0,$134.N 
SOUNDCHTP ? 
MOVEM.L (SP)+,D0-A6 
RTS 










Zone de sauvegarde du 
“ contexte du ST 

STORE INTERRUPTS 
REPT 8 










MOVEM.L DO-A6, - (SP) 
“ Restaure les interruptions: 
LEA STORE” INTERRUPTS (PC) , A0 
MOVE .L  $0 (A0), 570. 

MOVE, L $4(20),$134.m 

LEA SEFFFFA00 .W, A1 

-MVE.L $A(A0), DO 

MOVEP,L DO, $13 (A1) 

CLR:B ‘$19/{A) 

MVE,B $E(A0), $1F (A) 

MVE.B $D{A0), $19 (A1) 

MOVE.W $8(A0),D0 

MOVEP .h DO, $7 (A1) 

















; Mouse ON 
MOVE.B #$8, SFERFECO2 W 
MOVEM.L (SP)+,D0-A6 

RTS 











PLAY 
MOVE.W  #$2700,SR 

MOVEM.L D0/A0, - (SP) 

; Permutation des deux buffers 
; de digit de travail 

LEA DIGIT_ SHAP (PC) ,A0 
MOVE.L 4(A0),D0 

MOVE.L (A0),4 (A0) 

MOVE.L DO, (A0) 

LEA GRRR (PC), AO 

MOVE L D0,2{A0) 

LEA GRR (EC), AU 

MOVE.L D0,2(A0) 

LEA GR (PC) /A0 

MOVE.L D0,2(A0) 

MOVEM.L (SP)+,D0/A0 

MOVE, #$2300,SR 

; Lit la partition et produit 
; les effets sonores 

BSR PLAYER 

; Calcule la digit à jouer 

; à la prochaine VBL 

BSR  PRECALC DIGIT 

RTS 






































PLAYER 

MOVEM.L DO-A6, - (SP) 

LEA CFFSET (PC) , A4 
ADDQ.B #$1; COUNTER (A4) 
MOVE.B COUNTER (A4) ,DO 

; Effets sonore ou nouvelle 
; lecture de la partition? 
; SPEED (A4) , DO 
NONEW 

COUNTER (A4) 

READ PATTERN 


; Produit les effets sonores 
; sur les 4 voies 
 commandes:0,1,2,3,4,A 


LEA  CHIP1(PC),A5 
LEA  VOICE1(PC),A6 
BSR CHECK COMMAND 
LEA  CHIP2{PC),A5 

LEA  VOICE2(PC),A6 
ESR CHECK COMAND 
LEA  CHIP3(PC),A5 

LEA  VOICE3(PC),A6 
BSR CHECK COMMND 
LEA  CHIPAPC),A5 

LEA  VOICEA(PC),A6 
ESR CHECK COMMAND 
ERA END OF PLAYER 


; Lit la partition pour les 4 voies 
READ PATTERN 

ST, CONNEXION (PC) , AO 

12 (A0), A0 

$C (A0), A3 

(A0), A2 

POS (A4) , A2 

PATT (A4), A0 





40,D0 
#0,D1 
MOVE.B SONGPOS (A4) , DO 
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MOVE-B 7 0(42 DOWN), D1 
SP Di 





LSR,L 
ADD .K 


#$6,D1 
PATTPOS (A4) ,D1 









CHIP1 (PC), A5 












LEA  VOICEL(PC), A6 
BSR.S  PLAYVOICE 

LEA  CHIP2(PC),À5 
LEA  VOICE2(PC), A6 
ESR.S  PLAYVOICE 

LEA  CHIP3(PC) A5 
LEA  VOICE3 (PC), A6 
BSR.S PLAYVOICE 

LEA  Ctp4(pc),n5 
LEA VOICEA(PC) A6 
BSR.S PLAYVOICE 





SET REPEAT 









; Routine qui traite une voie 
PLAYVOICE 

MVE.L (A0,D1.L), (A6) 
ADDO.L #4,D1 

MOVEO  #0,D2 

MOVE.B  $2(A6),D2 

AND,B #$F0,D2 

LSR.B #4,D2 

MOVE.B (A6),D0 

AND.B #$F0,D0 

OR.B D0,D2 

TST.B D2 

BEQ.S SET REGS 

‘#0,D3 
SAMPLESTARTS (PC), A1 
D2,D4 

#$1,D2 

D2,D2 

D2,D2 

#SLE, D4 
(a1,D2.L),$4(A6) 
‘(A3,D4, 1); $8 (A6) 
$2(A3,D4.L), $12 (A6) 
$4(A3,D4.L),D3 
NO LOOP : 
$4(AL,D2.L), $4{A6) 
$6(A3,D4.L) ,D3 
D3,$8 (A6) 

D3,D3 

D3,$4 (A6) 

$4 (A6) , SA (A6) 

#0,D3 
$6(A3,D4.L),D3 
D3, SE (A6) 
$12(A6),$8(A5) 

SET REGS 





































$4 (A6); $A (A6) 
$6(A3,D4.L), SE (A6) 
$12 (A6) , $8 (A5) 







(A6) ,D0 
#S$EFF, DO 

CHECK COMMAND 2 
$2(A6),D0 
#5E,D0 
#53,D0 
SETPERIOD 









MOVE.W (A6), $10 (A6) 






















































































$4 (A6), (A5) 
D0 


$8 (A6) ,D0 

D0,D0 
DO,$4(A5) 
610 (A6) ,$A (A5) 
CHECK. COMMAND_2 


; Active les repeat des 4 voies 
SET REPEAT 

#0,D0 

CHIP1 (PC) ,A5 

VOICEI (PC) , A6 

SA (A6) , $C (A5) 

$E (A6); D0 

D0,D0 

DO, $10 (A5) 

CHIP2 (PC) ,A5 

VOICE (PC) ,A6 

$A(A6) , $C(A5) 

$E (A6) ,D0 

D0,D0 

DO, $10 (A5) 

CHIP3 (PC), A5 

VOICE3 (PC) , A6 

SA (A6) ,$C(AS) 

$E (A6) ,D0 

p0,D0 

D0,$10 (A5) 

CHIP4 (PC) , A5 

VOICE4 (PC) , A6 

SA (A6) , $C (A5) 

$E (A6) ,D0 
D0,D0 

DO, $10 (A5) 


ADD.W #$10,PATTPOS (A4) 
; Nouveau pattern? 
CMP.W  #$400,PATTPOS (A4) 
BNE.S END OF PLAYER 
NEXT PATT 

CLR.W PATTPOS (A4) 
‘BREAK (A4) 

#1, SONGPOS (A4) 
#$7F, SONGPOS (A4) 
SONGPOS (A4), dl 
ST. CONNEXION (PC) , A0 
12(A0),A0 

POS (A4) , A0 

-2 (A0), dl 

END OF PLAYER 
SONGPOS (A4) 





END OF PLAYER 
TST.B BREAK (A4) 
ENE.S NEXT PATT 
MOVEM.L (SP) +,D0-A6 
RTS 


; Effets sonores qui se 

; produisent lorsqu'il ne 

: faut pas lire la partition 
CHECK _COMMAND 
MOVE.W $2(A6),D0 






BEQ.S NO COMMAND 
ME.B  $2(A6) ,D0 
AND.B #$F,D0 





ARPEGGI0 
#$1,D0 





w mn 


) UP 


tt 


#$2,D0 


La 


#$3,D0 


Les] 


#$4,D0 


BRERESESS 


VIBRATO 
$10 (A6); $A(A5) 
#$A, DO 
VOLUME SLIDE 
NO _COMMAND 

RTS 


AE 


40,00 


ISR.B  #$4,D0 


#0,D0 
MOVE.B $3(A6),D0 
AND.B  #$F,D0 
BRAS ARPEGGIO3 
ARPEGGIO2 
MOVE.W $10(A6),D2 
BRAS  ARPEGGIO4 
ARPEGGI03 
ADD.W  D0,D0 
MOVEQ  #0,D1 
MOVE.W $10(A6),D1 
LEA PERIODS (PC) , A0 
MOVEQ #$24,D7 
ARPEGGIO LOOP 
MOVE.W (A0,D0:W),D2 
(A0),D1 


2{A0) ,A0 
D7,ARPEGGIO LOOP 


ARPEGGIO4 
MOVE.W_ D2, $A (A5) 
RTS 


MOVE.B $3(A6),D0 
SUB.W  D0,$10 (A6) 





MOVE.W $10(A6) ,D0 
CMP.W  #$71,D0 
BPL.S  PORTUP 
MOVE.W  #$71,$10 (A6) 


PORTUP 
MOVE.W $10(A6),$A (A5) 
RTS 





MOVE.B $3(A6) ,D0 
= 90 = 














3DD.N DO, $10 (A6) 
MOVE.W  $10{A6),D0 
’CMP.W  #$358,D0 
BMI.S  PORIDHN 
MOVE.W  #$358,$10 (A6) 









PORTDWN 
MOVE.N $10(A6),$A(A5) 
RTS 


; Met en place le 


D2, $18 (A6) 
$10 (A6) ,D0 

S16(A6) 

D0,D2 

CLR PORTAMENTO TONE 
BGE.S OK RTS 

#$1,$16 (A6) 


CLR PORTAMENTO TONE 
CIR.W $18(A6) 
OK RTS 


MOVE.B $3(26),D0 
BEQ.S MY SLIDE 
MOVE.B D0,$17(A6) 
CIRE  $3(A6) 


$18 (A6) 

OK RTS 
40,00 

$17 (A6) ,D0 
#16 (A6) 

MY SUB 

DO, $10 (A6) 
$18 (A6) ,D0 
$10 (A6) ,D0 
EGT.S MY OK 

$18 (A6) , $10 (A6) 
$18 (A6) 


$10 (A6) , $A (A5) | 


D0, $10 (A6) 

$18 (A6) ,D0 

$10 (A6) ,D0 

MY Ok 

$18 (A6), $10 (A6) 
$18 (A6) 

$10 (A6), $A (A5) 





; Commande 4: VIBRATO 
VIBRATO 
MOVE.E 
BEQ.S 
MOVE.B 


83(26),D0 
VIB 
D0, $1A (A6) 


VIB 
MOVE.B 
LEA 
SR. 
AND.W 
MOVEQ 
MOVE.B 


$1B (A6) ,D0 
SINUS (PC) , A0 
#$2,D0 
#S1F,D0 
#0,D2 
(A0,D0.W) ,D2 














F4 S1A (A6), 50 
AND.W  #$F,D0 
’MULU/  D0,D2 
/LSR.N  /#$6,D2 
MOVE. $10 (A6) ,D0 
/1ST.B  S1B(A6) 
‘EMI.S VIB MIN 
ADD D2,D0 

















VE .W/ D0/$A (AS) 
MOVE .B / $1A (A6) ,D0 
LSRN  #52,D0 
‘ADDB D0/S1B(A6) 













$3(A6),D0 
#4,D0 
DO / 
VOLUME } DORN, 
DO, $12{A6) 
NW  #$40,S12(A6) 
28 NOLUP OK 

/ 4$40,512(A6) 












E° “ $12(A6),$8 (A5) 






être effectuées lors de 
la lecture de la partition 
CHECK, COMMAND 2 

$2 (26) ,D0 

Æ#$E,D0 

#$B,D0 






FLE 
w! 


bn bhi ob bu! 








HE sand $B: POSITION JUMP 
POSITION JUMP 

MOVE 5 /$3 (26) DO 

SURO.B  #$1,D0 

PMOVE,B DO, SONGPOS (A4) 
. 8 EREAK (A4) 











; Commande $C: SET Dr 
ser } NOLUME 

CP.B #540,$3 (A6) 
BLE.S VOLUME OK 
MOVE.B 4540, $3 (A6) 
VOLUME OK 
MOVE.B /$3 (A6), S9(A5) 
RTS 


PATTERN BREAK 
NOT.B // BREAK (A4) 
RTS 


; Commande $E: FILTER 


SET FILTER 


AND.H #$1F,D0 


 Précalcule la digit qui 

; sera jouée lors de la 

; NBL' suivante 

PRECALC | DIGIT 

MOVEM. L D0-A6, (SP) 

/ | NOLUME (PC) ,A3 

# | /ER9(EC), A4 , 
// MEGABUFFER (PC) , A5 

CHIP1 (PC) ,A6 | / 

CALO NOICE 


um 


CHIP2 (PC) /A6 
CALC/VOICE 


ü. 


/ CHIP3 (PC), A6 
CALC VOICE 


ta 


CHIPA(PC), A6, 
CALÇ 1 DT 


mn 


MEGABUFER (0), 20 
500 (A0) , A1 

500 (A1), A2 
500(12)/43 7/7 
DIGIT  SHRE (PC), M 
MOVEL 4(M)M 

MIX ALL VOICES 
MOVEM.L (SP)+,D0-A6 

RIS 


BBBFE MOENNT 


. 


; Calcul de la digit | 
i pOur une voie 
cale : NOICE | 
: Adresse instrmeat 
ME. 1 $0(A6) A0 
; Valeur décimale du pointeur 
MOVEQO #0,D1 
; Longueur du sample 
MOVE.L $4(A6), D, 
; Nolume 
MOVE.W S8(A6), M 
BEO.S VOLUME NUL 
/SUBQ:W #1,D4 





“OT: 



























; Commande $D: PATTERN RER 








; (il n'est pas Dr) a 








MEGABUFFER+500 (PC) , # 
MEGABUFFER+1000 (PC), 35 14) 


MEGABUFFER+1500 (PC) , 3 















VOLUME NUL 
LSL.W /#$8,D4 
; Repeat lenght 
MIVE.1/ $10(A6),D6 
/;/Bériode 
MNE.N' nl D7 
c 2 
ADD. W D7,D7 
re 
ADD/W// D7,D7 
; Période L 
MOVE,L /(A4,D7.),D7 
; .W'bas de la période 
MVEW/ D7,D0 
SHAP/ D? 
MOVÉO”” #0,D2 
‘;/4W haüt de la période 
MOVE. W’D7,D2 
‘’ShAP DT 
; Repeat? 
TT. L/D6 
ENE.S 0 NU 
/; Pas repeat => fr 
Alerito dl FDP 
; Adresse do | 



















































0 
MEL TOR 


MOVEQ oups 
PNA D) 

; Partie décimale de 1a ééqunes | 
Su. W° D0,D1 
; Partie entière de ia a 
; + retenue (s/ MXN 
SUEXW/D2,03 
Ein du, sample? 
BCS/S///.R1 
1 Charge le sample 
MOVE.B  0(A0,D3.L),D4 

;/ Charge sa correspondance avec le volume 
MNE, :B /0(A3,D4. M), (A5)+ 





MVE:B O({A0,D3.L),D4 
MOVE.B 0(A3,D4.W), (A5)+ 
/ SUB:W  D0,D1 

SUBX.W / D2,D3 

BCS,S  .R3 

<RR3 

MOVE-B O(A0,D3.L),D4 
MOVE.B 0(A3,D4W), (A5)+ 
La même routine est exécutée 3 fois 

: cela/permet d'eviter 2 dbra 

DERA D5,.PAULA 

BRA.S END OF CALC À VOICE 


R1 

MEL D6,D3 
MOVE.W. D7,D0 
SHAP D? 
MVE.W D7,D2 






























































END OF CALC À VOICE 
; Adresse du sample à sauver 
MOVE.L A0,$0 (A6) 

Position dans le sample à sauver 
MOVE.L D3,54 (A6) 

RTS 


; Mixe les 4 voies 


MOVEQ #FRO LOOP,DI 
.LOOP 

MOVEQ  #0,D0 

; NL / 

MOVE.B (A0)+,D0 

; VAL 

ADD,B  (Al)+,D0 

? NLHV24V3 

ADD.B (A2)+,D0 

; VL4V24V34V4 


ADD.B (A3)+,D0. 

; Multiplie par 8 

LSL.W #3,D0 

: Sauve le résultat pour être exécuté 
; la VEL d'après 

MOVE.W DO, (A4)+ 

MOVEO #0,D0 . 

MOVE.B (A0)+,D0 

ADD,B (Al)+,D0 

ADD,B (A2)+,D0 

ADD.B (A3)+,D0 

LSL.W  #3,D0 

MVE.W DO, (A4)+ 

MOVEQ  #0,D0 

MOVE.B (A0)+,D0 

ADD.B (Al}+,D0 

ADD.B (A2)+,D0 

ADD.B (A3)+,D0 

LSL.W  #3,D0 

MOVE.W DO, (A4)+ 

; La même routine est exécutée 3 fois 
; cela permet d'eviter 2 DBRA 
DERA  D1,,LO0P | 
MOVE.W DO, (Ad)+ 

MOVE.W DO, (A4)+ 

MEN D0, (A4)+ 

RIS 


; Gestion cartouche MV16 
MV16 

MOVEM.L D0/A0,-(SP) 
ŒR 
LEA DIGIT,A0 

; Lit le mot de digit 
MOVE.W (A0) ,D0 
LEA (GR+4) (PC) ,A0 

; Incrémente adresse du buffer 
ADD.W #2, (A0) 
LEA $FFFA0000, A0 
; Format octet pour la cartouche 
; du type: #1111111111110 

































































113 bits avec les 12 bits de poids | 


; fort de significatif 
ADD.W  D0,D0 

ADD.W D0,D0 

MOVE.B : 0 (A0,D0.W) ,D0 
MOVE.L. (SP)+,D0 
MOVE.L (SP)+,A0 

RTE 


: Gestion cartouche ST Replay 
ST: REPLAY 
MOVEM.L D0/A0, - (SP) 


GRR 

LEA DIGIT, A0 

; Lit le mot de digit 
MOVE.W (A0),D0 


LEA (GRR+4) (PC) , A0 

: Incrémente adresse du buffer 
ADD.W #2, (A0) 

LEA $FFFA0000, A0 

; Format octet pour la cartouche 
; du type: +111111110 

; 9 bits avec les 8 bits de poids 
; fort de significatif 

LSR.W  #2,D0 

MOVE.B 0(A0,D0.),D0 

MOVE.L (SP)+,D0 

MOVE.L (SP)+,A0 

RTE 


: Gestion Yamaha 2149 
SOUNDCHIP 

MOVEM.L D0/A0,-(SP) 
GRRR 

LEA DIGIT, A0 

: Lit le mot de digit 

MOVE.W (A0),D0 

LEA (GRRR+4) (PC) , A0 

; Incrémente adresse du buffer 
ADD.W #2, (A0) 
; Pointe sur la valeur de la table 
: ST Replay pour le Soundchip 
LEA SOUND (PC, DO.) ,A0 
MOVE.L (A0)+,D0 

MOVE.L (A0),SEFFF8800.N 

LEA SEFFF8800 .W,A0 

MOVEP.L DO, (A0) 

MVE.L (SP)+,D0 

MOVE.L (SP)+,A0 

RTE 


; Table ST Replay 
; COPYRIGHT 2-BIT SYSTEM / MICRODEAL 


SOUND 
DC.W $80€, $90D, $A0C, 0, $80F, $903, $A00, 0 
DC.W 580F,$903, $A00, 0, $80F, 5903, $A00, 0 
DC.W $80F, 5903, $A00, 0, $80F, $903, $A00, 0 
DC.W $80F, 5903, $A00, 0, $80E, $90D, $AOB, 0 
DC.W $80E, $90D, SAOB, 0, $80E, $90D, $AOB, 0 
DC.W $80E, $90D, SAOB, 0, $80E, $90D, $AOB, 0 
DC.W $80E, $90D, $A0B, 0, $80E, $90D, $AOB, 0 
DC.W $80E, $90D, SAOA, 0, $80E, $90D, $AOA, 0 
DC.W $80E, $90D, $AOA, 0, $80E, $90D, SAOA, 0 
DC.W $80E, $90C, $AOC, 0, $80E, $90D, $A00, 0 
pC.wW $80D, $90D, $AOD, 0, $80D, $90D, $AOD, 0 
pC.W $80D, $90D, $AOD, 0, $80D, $90D, $AOD, 0 
DC.W $80D, $50D, SAOD, 0, $80D, $90D, $AOD, 0 
DC.W $80E, $90C, SAOB, 0, $80E, $90C, $AOB, 0 
DC.W 580€, $90C, SAOB, D, $80E, $90C, $AOB, 0 
DC-W $80E, $90C, $A0B, 0, $80E, $90C, $AOB, 0 
DC.W $80E, $90C, $AOB, 0, $80E, $90C, $AOB, 0 


92 - 






























DC.W SB0E, 5900, SAOA, 0, $80E, $90C, $SAUA, 0 
DC.W $80E, $900, $AOA, 0, $80E, $90C, SAOA, 0 
DC.W $80D, $90D, $AOC, 0, $80D, $90D, SAOC, 0 
DC.W $80E, $90C, $A09, 0, $80E, $90C, $A09, 0 
pC.W $80E, $900, $A05, 0,$80E, $90C, $A00, 0 
DC.W $80E, $900, $A00, 0, $80E, $90B, $AOB, 0 
DC.K $80E, $908, SAOB, 0, $80E, $90B, $AOB, 0 
DC.W S80E, $90B, $AOB, 0, $80E, $90B, SAOA, 0 
DC.W $80E, $90B, SAOA, 0, $80E, $90B, $AOA, 0 
DC.W $80D, $90D, SAOB, 0, $80D, $90D, $AOB, 0 
DC.W $80D, $90D, $AOB, 0, $80E, $90B, $A09, 0 
DC.W $80E, $90B, $A09, 0, $80E, $90B, $A09, 0 
DC.W $80D, $90c, SA0C, 0, $80D, $90D, SAOA, 0 
DC.W $80E, $90B, $A07, 0, $80E, $90B, $A00,0 
DC.W $80E, $90B, $A00, 0, $80D, $90D, $A09, 0 
DC.W 580D, $90D, $A09, 0, $80E, S90A, $A09, 0 
DC.W $80D, $90D, $A08, 0, $80D, $90D, $A07, 0 
DC.W $80D, $90D, $A04,0,$80D, $90D, $A00, 0 
DC.W $80E, $90A, $A04, 0, $80E, $909, $A09, 0 
DC.W $80E, 5909, $A09,0, $80D, $90C, $AOB, 0 
DC.W $80E, $909, $A08, 0, $80E, $909, $A08, 0 
DC.W $80E, $909, $A07, 0, $80E, $908, $AOB, 0 
DC.W $80E, 5909, $A01, 0, $80C, $90C, SAOC, 0 
pC.W $80D, 5900, SA0A, 0, $80E, $908, $A06, 0 
DC.W $80E, $907, $A07, 0, $808,$908, $A00,0 
DC.W $80E, 5907, $A05, 0, $80E, $906, $A06, 0 
pC.W $80D, $90C, $A09,0, $80E, $905, $A05, 0 
DC.W S80E, 5904, $A04, 0, $80D, $90C, $A08, 0 
DC.W $80D, $90B, $AOB, 0, $80E, $900, $A00, 0 
pCW $80D, $90C, $A06, 0, $80D, $90C, $A05, 0 
DC. $80D, 5900, $A02, 0, $80C, $90C, SAOB, 0 
DC.W $80C, $900, $AOB, 0, $80D, $90B, SAOA, 0 
DC.W $80D, $90B, SAOA, 0, $80D, $90B, SAOA, 0 
DC.W $80D, $90B, SAOA, 0, $80C, $90C, SAOA, 0 
DC.W 5800, $90C, SAOA,0, $80C, $90C, $AOA, 0 
DC.W $80D,$908,$A09, 0, $80D, $90B, $A09, 0 
DC.K $80D, $90A, SAOA, 0, $80D, $90A, SAOA, 0 
DC.W $80D,$90a, SAOA, 0, $80C, $90C, $A09, 0 
DC.W $80C, $90c, $A09, 0, $80C, $90C, $A09, 0 
DC.W $80D, $90B, $A06, 0, $80C,$90B, SA0B, 0 
DC. $80C, $90C, $A08, 0, $80D, $90B, $A00, 0 
DC.W $80D, $90B, $A00,0, $80C, $90C, $A07, 0 
DC.W $80C, $90C, $A06, 0, $80C, $90C, $A05, 0 
DC.W 5800, $90C,$A03, 0, $800, $900, $A01, 0 
DC.W $800, 5908, SAOA, 0, $80D, $90A, $A05, 0 
DC.W $80D, $90a, $A04,0, $80D, $90A, $A02, 0 
DC.W $80D, $909, $A08, 0, $80D, 5909, $A08, 0 
DC.n $80C, $90B, $A09, 0, $80C, $90B, $A09, 0 
DC.W $80D, $908, $A08, 0, $80B,$90B, $A0B, 0 
DC.W $80D, $909, $A05, 0, $80C, $90B, $A08,0 
DC.W $80D, $909, $A02, 0, $80D, $908, $A06,0 
pC.W $80C, 5908, $A07, 0, $80D, $907, $A07, 0 
DC. $80C, $90B, $A06, 0, $80C, $90A, $A09, 0 
DC.W $80B, $90B, $AOA, 0, $80C, $90B, $A02, 0 
DC.W $80C, $90B, $A00, 0, $80C, $90A, $A08, 0 
DC.W $80D, 8906, $A04, 0, $80D, $905, SAS, 0 
pC.W $80D, 905, $A04,0, $80C, $909, $A09, 0 
DC.R $80D, $904, $A03, 0, $80B, $90B, $A09, 0 
pC.w $80c, $90A, $A05, 0, $80B, $90A, $AOA, 0 
pC.w 580C, 5909, $A08, 0, $80B, $90B, $A08, 0 
DC.W $80C, $90A, $A00, 0, $80C, $90A, $A00, 0 
DC.N $80C, $909, $A07, 0, $80B, $90B, $A07, 0 
DC.W $80C, 909, $A06, 0, $80B, $90B, $A06, 0 
pC.W $80B,$90A, $A09, 0, $80B, $90B, $A05, 0 
pC.W 5802, $90A, $AOA, 0, $80B, $90B, $AO2, 0 
pC.W $80B, $90A, $A08, 0, $80C, $907, $A07, 0 
DC.W 5800, $908, $A04, 0, $80C, $907, $A06, 0 
DC.W $80B, $909, $A09, 0, $80C, $906, $A06, 0 
DC.W S80A, $90A, $A09, 0, $80C, $907, $A03, 0 
DC.W $80B, $90A, $A05, 0, $80B, $909, $AOB, 0 
DC.W $80B, $90A, $A03, 0, S80A, $90A, $A08, 0 
DC.W $80B, $90A, $A00, 0, $80B, 8909, $AO7, 0 

























































1DC.W $80B,$908, SADB, 0, 5804, 8904, 8407, 0 
/DC.W $B0A, 5909, $A09, 0, $80C, $901, $A01, 0 
/DC.N $80A, $90A, $A06, 0, $80B, $908, SAO7, 0 
DC. $80A, $90A, $A05, 0, $80A, $909, $A08, 0 
DC." $80A, $90A, $A02, 0, $80A, S90A, SAO1, 0 
pC.W $80A, $90n, SA00, 0, $809, $909, $A09, 6 
DC.W $80A,$908, $A08, 0, $80B, $908,$A01,0 
‘DC.W $80A, $909, $A06, 0, $80B, 5907, $A04,0 
/DC.W $80A, $909, $A05, 0, $809, $909, $A08, 0 
DC.W $80A, $909, SAO3, 0, $80A, $908, $A06, 0 
lpc.w S80A, $909, $A00, 0, 5809, $909, SA07, 0 
DC.W $809, 5008, $A08, 0, S80A, 5908, $A04, 0 
PDC.W $809, 5909, $A06, 0, S80A, $908, $AO1, 0 
DC. $809, $909, $A05, 0, $809, $908, $AO7, 0 
DC.W $808,$908, $A08, 0, $809, 8909, $A02, 0 
DC.N 5809, $908, $A06, 0, $809, $909, $A00, 0 
DC.W 5809, $907, $A07, 0, $808, $908, $A07, 0 
DC.N $809,$907, $A06, 0, $809, $908, $A02, 0 
“DC.N 5808, $908, $A06, 0, $809, 5906, $A06, 0 
D.  $808,5907,$A07, 0, $808, $908, $A04, 0 
N $808, $907, $A06, 0, 808, 8908, SA02 0 
-DC.W $807, $907, SAO7, 0, $808, 5906, $A06, 0 
DC. $808,$907, $A04, 0, 5807, $907, $A06, 0 
-DC.W 5808, $906, $A05, 0, $808, $906, SAO4, 0 
DC.W 5807, $906, $A06, 0, $807, $907, SA04, 0 
D. # $808,$905, $A04, 0, $806, 5906, $A06, 0 
DC.W $807,$906, $A04, 0, $807, $905, $A05, 0 
DC. W 5806, 5906, $A05, 0, $806, $906, $204, 0 
DC.N 5806, 5905, $A05, 0, $806, $906, $A02, 0 
*DC.N $806,$905, $A04,0, $805, $905, $AO5, 0 
"DC. $806,$905, $AO2, 0, $805,$905, $A04, 0 
DC.W $805,$904, $A04, 0, $805, 5905, $A02, 0 
DC.N 5804, 5904, $A04, 0, $804, 8904, $A03, 0 
DC.N 5804, 8904, $A02,0, 804, $903, $A03, 0 
CN $803,$903,$A03, 0, $803, $903, $A02, 0 
Cu 6803, 8902, £A02, 0, $802, 8902, SA02 0 
C.W 5802, $902, $A01, 0, $801, $901, $A01, 0 
DC M $802, 901, SAOO, 0, $801, $901,$A00, 0 
à W $801,$900, $A0D, 0, $800, $900, $A00, 0 


% | mable pour le vibrato 
stnus 


DC.B $00,$18, 531, $4A, $61, $78, $8D, SA1, $B4 
DCE $C5, $D4, $EO, SER, $F4, SFA, SD 
DC.B $FF, SFD, SFA, SF4, $EB, SEO, $D4, $C5, $B4 
nc, > $AL, $8D, 578,561, $4A, $31,$18 


k ; Table pour l'arpeggio 
PERIODS 

don 50358, $0328, $02FA, $02D0, $02A6, $0280 
deiw $025C, $023A, $021A, $01FC, $01E0 

dc.w $0105, $01AC, $0194, $017D, $0168, $0153 
dcw $0140, $012E, $011D, $010D, SO0FE 

de.w $00F0, $00E2, $00D6, $00CA, S00BE, $00B4 
dc:w $00AA, $00A0,$0097, S008F, $0087 
dcw $007F, $0078,$0071, $0000, $0000 


a 
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VOICEL ÆQU VOICES 
VOICEZ  EQU VOICES+$1C 
VOICE3  EQU VOICES+$38 
VOICE4 EQU VOICES+$54 







CHIPS EQU CHIP4$30 
CHIPA  EQU CHIP4$48 
NO INS DC.W 58080 





; Noici les valeurs pour changer 
; de fré LR 

; Fréquences: 14Khz 12,3Khz 10,1Khz 
; FRQ DATA 44 50 61 
 FRQ LOOP 92 81 66 
; Fréquences: 8.5Khz 7,5Khz 

; FRQ DATA 72 82 

# FRQ LOOP 56 49 












INCBIN ‘14 KHZ.FRO' 
YT DCLO 
INCBIN ‘VOLUME. BIN 











; Routine d'exemple utilisant la routine 
; de replay de musiques Soundtracker 








MAIN (PC) 
MOVE.W #$26,-(SP) 
TRAP #14 
6(SP), SP 








CLR.W  -(SP) 
TRAP #1 










; Programme exécuté en Superviseur 
MAIN 

; Init la musique ét ses paramètres 
LEA STCONNEXION (PC) , A0 

; Poke l'adresse de la musique 

LEA MUSIC(PC),Al 

MOVE.L A1,12(A0) 

; Choix de la sortie... 

; Sounchip = 0 

; ST Replay = 1 

; M6 = 












MOVE.W  #0,16 (A0) 


MOVE.W #$2700,SR 
BSR STCONNEXION 

: Lance la musique 
LEA MY VEL{PC), A0 
MOVE.L A0,$70.N 


MOVE.W  #$2300,SR 
DEMO 
BSR VSYNC 
CMP.B  #$39+$80, SFFFFFCO2.W 
BNE.S DEMO 


; Remet Le ST dans l’état où 
; nous l'avons trouvé 
MOVE.N #$2700,SR 

BSR STCONNEXIONXS4 
MWVE.W #$2300,SR 

; Kait MFP 


MOVE.W #4000,D0 


MOVE.L A0,-(SP) 


LEA SYNC (PC) , A0 
(A0) 
(SP}+,A0 
STCONNEXION+S8 


A0, - (SP) 
SYNC (PC) , A0 
(40) 


(A0) 
WATTVBL 


; On inclut ici le fichier 
; contenant le source de la 
; playroutine... 
STCONNEX ION 

INCLUDE ST _MAG-S’ 


; Et ici on inclut la musique 















| | 
|! | 
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TETE SES 
Se ——* 


Quoi de plus agréable que de per- 
sonnaliser ses propres programmes 
avec des petits lutins sur mesure ou 
une souris en forme de flèche 
indienne. Souvent, on renonce à 
cette possibilité à cause de la diffi- 
culté de mise en oeuvre de la défini- 
tion binaire, sous forme de chaînes 
de caractères souvent barbares, de 
ces bestioles. Ce programme d'édi- 
tion de lutins et de souris vous per- 
met de gérer facilement, et au pixel 
près, les motifs de ces derniers. Tout 


PEM X#KRKXRKRARRR RER ARRRRNRX 


REM * EDITEUR DE SPRITES * 


REM * TOUTES RESOLUTIONS * 
REM XA#KKKXKXKKRRERAARRREEEÉ A 


init disquette 
init fleche 
init lutin(1,1,0,0,15,lutinl$) 
init lutin(1,1,0,15,15,lutin2$) 
DEFFILL vert, 2,2 
PBOX 0,0,320*cx, 200*cy 
effacer 
forme souris (9) 
cadre selection 
DO 
MOUSE xs,ys,es 
IF es=1 OR es=2 
choix grille(dx1,dyl,xs,ys,noir) 
choix grille (dx2,dy2,xs,ys, rouge) 
ELSE 
rep=CVI (INKEYS) -58 
SELECT rep 
CASE 1 
inversion 
affiche grille 
CASE 2 
copie masque 
affiche grille 
CASE 3 








se fait à la souris et quant au dessin, 
les fonctions élémentaires (inver- 
sion, copie vers le masque, sauve- 
garde, et patati, et patata..) sont 
gérées au clavier afin d'éviter une 
routine d'interrogation souris qui 
aurait pris un grand nombre de 
lignes. 


Au lancement deux grilles s'affichent : 
à gauche, celle du corps, et à droite, 
celle du masque, le résultat est affi- 
ché dans les petits cadres en haut 
CASE 4 
CASE 5 


CASE 6 
charge objet 
7 





IF choix=2 


ENDIF 
CASE 8,9 


CASE 10 


IF choix=2 
END 
ENDIF 


pxai=pxa 
pyai=pya 
SELECT rep 
CASE 14 
DEC pya 
CASE 17 
DEC pxa 
CASE 19 
INC pxa 
CASE 22 
INC pya 
ENDSELECT 


sauve objet (1) 
sauve objet (2) 


sauve objet (3) 


efface objet 


CASE 14,22,17,19 





DES LUTINS ET 
DES SOURIS 


de l'écran. Il suffit de cliquer avec le 
bouton gauche de la souris pou 
valider un pixel et avec le boutor 
droit pour l’effacer. Les flèches de 
déplacement permettent de dépla: 
cer le point d'action qui se distingue 
par un motif spécial. Un format parti. 
culier (.LUT) permet de conserver 
une trace en vue d’une édition ulté- 
rieure. 


Franck-Olivier LELAIDIER 


ALERT 2,"|VOULEZ-VOUS EFFACER L'OBJET ?”,1,"NON|OUI", choix 


ALERT 1,”|FONCTION INEXISTANTE|A VOUS DE JOUER !”,1,"0K",choix 


ALERT 2,”|VOULEZ-VOUS VRAIMENT QUITTER ?”,1, "NON|OUI”, choix 
































































pac=TRUE 


pac=FALSE 
ENDIF 


pac=TRUE 


pac=FALSE 
ENDIF 


pac=FALSE 
ENDSELECT 
ENDIF 
LOOP 
END 


PROCEDURE resolution 


SELECT XBIOS (4) 
CASE 0 


VSETCOLOR 0,7,7,7 
blanc=0 
NSETCOLOR 1,0,0,0 
noir=1 

VSETCOLOR 2,7,0,0 
rouge=2 

VSETCOLOR 3,0,7,0 
vert=3 

grx=8*cx 

gry=8*cy 

dxl=grx 
dx2=(56+16*8) *cx 
dy1=6 

dy2=6 

Corps=4-2* (cy=1) 
nom$="NOMBIDON" 
pac=FALSE 

pxa=1 

pya=l 

mode=1 

coul masque=blanc 
coul lutin=noir 
DIM lutin (16) 
DIM masque (16) 
DIM chemin$ (3) 
DIM extensions (3) 


FOR i=1 TO 3 








pxa=(ADD(pxa,15) MOD 16)+1 
pya=(ADD(pya,15) MOD 16)+1 


IF BTST(lutiné (pyai),16-pxai) 


pixel lutin(dx1,dyl,pxai,pyai noir) 


IF BTST (masque (pyai) ,16-pxai) 


pixel lutin(dx2, dy2, pxai, pyai, rouge) 






extensions (1)=".LST” 
extensions (2)=".LST" 
extensions (3)=",LUT" 









ee (É)=CHRS (654GEMDOS (25) +”: "4DIR$(0)+"\# “extensions (i) 
1 


RETURN 
PROCEDURE init disquette 


LOCAL i,option$ 
RESTORE disquette 
disquette$="" 
FOR i=1 TO 37 
READ optiont 
disquette$=disquetteS$+MKI$ (optiont) 
NEXT i 
disquette: 
DATA 1,1,1,0,1,32764, 49158, 46874, 46874, 46874, 45082, 49146 
DATA 45082, 44010, 44138, 44266, 44394, 35946, 44970, 49158, 32764 
DATA 0,16376,18660, 18660, 18660, 20452, 16388, 20452, 21524 
DATA 21396,21268,21140, 29588, 20564, 16376, 0 


RETURN 
PROCEDURE init fleche 


LOCAL i,option$ 
RESTORE fleche 
fleche$="" 
FOR i=1 TO 37 
READ optiont 
fleche$=fleche$+MKIS (option) 
NEXT i 
fleche: 
DATA 1,1,1,0,15,49152, 48128, 17408, 17408, 17408, 31232, 1280 
DATA 640,376,136,152,162,231,40,25,10,0,16384, 14336, 14336 
DATA 14336, 1024, 512,256, 128,112,96,92,24,23,6,4 


RETURN 
PROCEDURE init_lutin(pxa,pya node, coul. masque, coul lutin, VAR lutins) 


LOCAL j 
lutin$=MKI$ (pxa) +MKI$ (pya) +MKIS (mode) 
lutin$=lutin$#MKI$ (coul masque) +MKIS (coul lutin) 
FOR j=1 TO 16 

lutin$=lutin$+MKIS$ (0) +MKIS (0) 
NEXT j 


RETURN 
PROCEDURE cadre selection 


LOCAL i Ë 

DIM fonctions (10) 

fonction$ (1}="F1 : INVERSION” 

fonctions (2)="F2:COPIE MASQUE 

fonction$(3)="F3:SAUVE LUTIN” 

fonction$(4)="F4:SAUVE SOURIS" 

fonction$(5)="F5:SAUVE OBJET” 

fonction$ (6)="F6:CHARGE OBJET” 

fonction$ (7)="F7:EFFACE OBJET” 

fonction$ (8)="F8:" 

fonction$ (9)="F9:" 

fonction$ (10)="F10 :QUITTER” 

DEFTEXT noir, ,,4 

DEFFILL blanc 

FOR i=1 TO 5 ; 
PBOX dxl,gry*(16#i), dx1+16*grx, gry* (16+i)+7*cy 
TEXT dxl,gry*(16+i)+5*cy, fonctions (i) 
PBOX dx2, gry*(16+i),dx2+16*grx, gry* (16+i)#7*cy 
TEXT dx2,gry*(16+i)+5*cy, fonctions (i+5) 

NEXT i 


RETURN 
REM affichage du point d'action 
PROCEDURE p action 
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LOCAL bxi,byi,bxf,byf 
bxi=dxl+(pxa-1) *grx+l 
byi=dy1+ (pya-1) *gry+1 
bxf=bxi+grx-2 
byf=byitgry-2 
DEFFILL noir,2,1l 
pBOX bxi,byi,bxf,byf 
IF BTST (masque (pya) , 16-pxa) 
DEFFILL rouge, 2,24 
PBOX bxi,byi,bxf,byf 
ENDIF 
IF BTST (lutins (pya) ,16-pxa) 
DEFFILL noir,2,5 
PBOX bxi,byi,bx£,byf 
ENDIF 
bxi=bxi+(dx2-dxl) 
bx£=bx£f+ (dx2-dx1) 
DEFFILL noir,2,1l 
PBOX bxi,byi,bxf,byf 
IF BTST(lutin® (pya) , 16-pxa) 
DEFFILL noir,2,5 
PBOX bxi,byi,bx£,byf 
ENDIF 
IF BTST(masque* (pya) , 16-pxa) 
DEFFILL rouge, 2,24 
PBOX bxi,byi,bx£, byf 
ENDIF 
RETURN 
PROCEDURE grille (dx, dy) 
LOCAL pxi,pyi,px£,pyf,i 
FOR i=0 TO 16 
pxi=dx 
pyi=dy+i*gry 
pxf=dx+16*grx 
pyf=pyi 
LINE pxi,pyi,Px£,pyf 
pxi=dxti*grx 
pyi=dy 
pxf=pxi 
pyf=dy+16*gry 
LINE pxi,pyi,Pxf,Pyf 
NEXT i 
RETURN 
PROCEDURE affiche lutin 
cadre lutin(dx1+16*grx+2*cx, dyl, blanc) 
SPRITE lutin1$, dxl+ (pa-1)+16*grx+5tex, dyl+ (pya-1) +3*cy 
cadre lutin (dx2-22*cx, dy2,noir) 
SPRITE lutin2$, dx2+ (pxa-1)-18*cx, dy2+(pya-1)+4%cy 
RETURN 
PROCEDURE cadre lutin(dx, dy, coul) 
DEFFILL coul, 2,8 
PBOX dx, dy, dx+20*cx, dy+20*cy 
BOX dx, dy, dx+20*cx, dy+20*cy 
RETURN 
PROCEDURE calcul lutin 
LOCAL j 
lutin1$="" L 
lutin1$=MKI$ (pxa)+MKI$ (pya) +MKIS (0) 
lutinl$=lutinl$+MKI$ (coul masque) +MKI$ (coul_lutin) 
FOR j=1 TO 16 
lutin1$=lutin1$+MKI$ (masque® (j) ) +MKI$ (Lutin® (j)) 
NEXT j- 


lutin2$=lutini$ 
RETURN 
PROCEDURE effacer 
DEFFILL blanc, 2,8 
PBOX dxl,dyi,dx1+16*grx, dy1+16*gry 
pBOX dx2,dy2,dx2+16*grx, dy2+16*gry 
grille (dx1, dy1) 
grille (dx2, dy2) 
cadre lutin (dx1+16*grx+2*cx, dyl, blanc) 
cadre lutin (dx2-22*cx, dy2,noir) 
p action 
RETURN 
PROCEDURE forme souris (numero) 
SELECT numero 
CASE 8 
DEFMOUSE disquettes 
CASE 9 
DEFMOUSE fleche$ 
DEFAULT 
DEFMOUSE (numero) 
ENDSELECT 
RETURN 
PROCEDURE pixel lutin(dx,dy,i, j,coul) 
LOCAL bxi,byi,bxf,byf, couleur motif 
IF (i>0 AND i<17) AND (j>0 AND 3<17) 
bxi=dx+(i-1) *grxtl 
byi=dy+(j-1) *grytl 
bxf=bxitgrx-2 
byf=byitgry-2 
IF es=2 OR pac=TRUE 
couleur=blanc 
motif=8 
ELSE 
couleur=coul 
motif=8+7*(coul=2) 
ENDIF 
SELECT coul 
CASE 1 
IF couleur=blanc 
lutin®(j)=BCLR(lutin$ (j) ,16-i) 
ELSE 
lutins (j)=BSET (lutins (j),16-i) 
ENDIF 
IF (NOT BTST(lutin$(j),16-i)) AND BTST (masque (j),16-i) 
couleur=2 
motif=1 
ENDIF 
DEFFILL couleur,2,motif 
PBOX bxi,byi,bx£,byf 
IF (NOT BTST (masques (j),16-i)) 
bxi=bxi+(dx2-dx1) * ( (coul=2) -(coul=1)) 
bxf=bxf+ (dx2-dx1) * ( (coul=2) - (coul=1) ) 
PBOX bxi,byi,bxf,byf 
ENDIF 
CASE 2 
IF couleur-blanc 
masques (j)=BCLR (masque (j) ,16-i) 
ELSE 
masques (j)=BSET (masque (j) ,16-i) 
ENDIF 
IF (NOT BIST(masque(j),16-i)) AND BTST(lutin$(j),16-i) 
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ENDIF 
DEFFILL couleur, 2, motif ‘ 
PBOX bxi,byi,bxf,byf 
IF (NOT BTST(lutin$(j),16-i)) 
bxi=bxi+ (dx2-dx1) * ((coul=2)-(coul=1)) 
bxf=bxf+{(dx2-dx1) * ((coul=2)-(coul=1)) 
PBOX bxi,byi,bxf,byf 
ENDIF 
ENDSELECT 
calcul lutin 
affiche lutin 
p_action 
ENDIF 
RETURN 
REM version réduite de affiche grille 
PROCEDURE choix grille(dx, dy, x, y, coul) 
LOCAL bxi,byi,bxf,by£,i,j 
1=INT ( (x-dx) /grx) +1 
j=INT ((y-dy) /gry) +1 
pixel lutin(dx,dy,i,j,coul) 


PROCEDURE decoupe (fichier$,ext def$, VAR nom$,ext$) 
LOCAL apos| 
apos|=INSTR(fichier$, ”.") 
u IF apos|=0 
ext$=ext defs 
nom$=fichiers 
… ELSE 
ext$=RIGHTS (fichier$, LEN(fichier$) -apos|+1) 
nom$=LEFTS (fichier$, apos |-1) 
. ENDIF 
RETURN 
URE analyse chemin (chen$,ext def$, VAR lect$, rept$,nom$, ext$) 
LOCAL apos1|,apos?| 
chem$=UPPERS (chem$) 
IF chem$<>"’” 
apos1|=INSTR(chem$, ’\") 
apos2|=RINSTR (chem$, ‘\") 
lect$=LEFTS (chem$, apos1|-1) 
rept$=MID$ (chem$, apos1|,apos2|-aposi|+1) 
decoupe (RIGHTS (chem$, LEN (chem$) -apos2|) ,ext def$, non$, ext$) 
SELECT LEN(lect$) 
CASE 2 
SELECT lect$ 
CASE "A:” TO “p:” 
DEFAULT 
lect$=CHR$ (65+GEMDOS (25) )+":" 
ENDSELECT 
DEFAULT 
lect$=CHR$ (65+GEMDOS (25) ) +” :” 
ENDSELECT 
ELSE 


REM sauve lutin, souris, format éditable 

PROCEDURE sauve objet (type) 

LOCAL choix$, ligne, i, Lect$, rept$,ext$ 

FILESELECT chemin$ (type) ,nom$+extension$ (type), choix$ 
analyse chemin (choix$, extension$ (type) , lect$, rept$, choix$, ext$) 
IF choix$<>"” 

chemin$ (type)=lect$+rept$+"*"+exts 





nom$=choix$ 
forme souris (8) 
OPEN ‘o”, #1, lect$+trept$inom$+exts 
SELECT type 
CASE 1,2 
PRINT #1, "PROCEDURE init ‘nom$ 
PRINT #1, LOCAL i, options” 
PRINT #1,”"RESTORE ‘+nom$ 
PRINT #1,nom$+”$=""" 
PRINT #1,"FOR ig=1 TO 37” 
PRINT #1,READ optiont” 
PRINT #1,nom$+"$="4nom$+"S1MRIS (options) ” 
PRINT #1,"NEXT iç” 
PRINT #1,nom$+":" 
ligne$="DATA “STR$ (pxa) +”, "4STR$ (pya)+", “4STRS (mode) +”, 
ligne$=ligne$+STR$ (coul_masque) +”, "4STR$ (coul lutin) 
PRINT #1, ligne$ 
IF type=1 
FOR i=1 TO 16 STEP 2 
ligne$="DATA HSTR$ (masque% (1) }+”,"+STR$ (lutins (i)) 
Ligne$=ligne$+#"”, 4STR$ (masques (i+1))+", "4STR$ (lutins (141) 
PRINT #1,lignes 
NEXT i 
ELSE 
FOR i=1 TO 16 STEP 4 
ligne$="DATA “#STR$ (masque (1) )+/”, "+STR$ (masques (i+1)) 
Ligne$=Ligne$+", "4STR$ (masques (142) )4", "4STRS (masques (143)) 
PRINT #1, lignes 
NEXT i 
FOR i=1 TO 16 STEP 4 
ligne$="DATA STR$ (lutin®(i)}+","#STR$S (Lutin (i+1)) 
ligne$=ligne$+", “4STR$ (lutins (142) )+","4STR$ (lutins (1+3)) 
PRINT #1,ligne$ 
NEXT i 
ENDIF 
PRINT #1, "RETURN" 
CASE 3 ; 
HRITE #l,pxa,pya,mode, coul masque, coul lutin 
FOR i=1 TO 16 
WRITE #1,masque*(i) lutin? (i) 
NEXT ji 
ENDSELECT 
CLOSE #1 
ENDIF 
forme souris (9) 
RETURN 
REM Pour un nouvel objet 
PROCEDURE affiche grille 
LOCAL bxi,byi,bxf,byf,couleur motif,i,j 
effacer 
calcul lutin 
affiche lutin 
FOR i=1 TO 16 
FOR j=1 TO 16 
couleur=blanc 
motif=8 
bxi=dx1+(i-1) *grx+1 
byi=dyl+(j-1) *gry+1 
bxf=bxi+grx-2 
byf=byitgry-2 
IF BTST(masque*(j),16-i) 
DEFFILL rouge, 2,1 
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PBOX bxi,byi,bxf,byf 
ENDIF 
IF BTST(lutin$(j),16-i) 
DEFFILL noir, 2,8 
PBOX bxi,byi,bx£,byf 
ENDIF 
bxi=bxit (dx2-dx1l) 
bxf=bx£+ (dx2-dx1) 
IF BTST(lutin$ (j),16-i) 
DEFFILL noir,2,8 
PBOX bxi,byi,bx£,by£ 
ENDIF 
IF BTST (masques (j),16-i) 
DEFFILL rouge, 2,1 
PBOX bxi,byi,bxf,byf 
ENDIF 
NEXT j 
NEXT i 
p action 
RETURN 
PROCEDURE charge objet 
LOCAL choix$, i,lect$, rept$,ext$ 
FILESELECT chemins (3) ,nom$+extension$ (3), choix$ 
analyse chemin (choix$, extension$ (3), lect$, rept$, choix$,ext$) 
IF choix$@©”" 
chemin$ (3)=1ect$+rept$+"*"+ext$ 
forme souris (8) 
nom$=choix$ : 
OPEN “i”,#1,lect$+rept$+nom$text$ 
INPUT #1,pxa,pya,mode, coul masque, coul lutin 
FOR i=1 TO 16 
INPUT #1,masque#(i),lutin®(i) 
NEXT i 
affiche grille 
CLOSE #1 
ENDIF 
forme souris (9) 
RETURN 
RÔCEDURE efface_objet 
pxa=l 


| coul masque=0 

coul lutin=15 

ARRAYFILL lutin (),0 

ARRAYFILL masque (), 0 

effacer : 

RETURN 

PROCEDURE inversion 

LOCAL i,j 

FOR j=1 TO 16 
lutin$(j)=NOT (lutin (j)) 

NEXT j 

RETURN 

PROCEDURE copie masque 

LOCAL j 

FOR j=1 TO 16 
masque® (j)=lutin$ (j) 

NEXT j 

RETURN 






























































Utilisation de morceaux 
Quartet en Basic GfA 















Bien que des exemples d'utilisation des 
morceaux Quartet soient fournis sur les 
disquettes du logiciel, certains 
utilisateurs n'ont pu en tirer parti dans 
leur basic Gfa. Voici donc un petit listing 
commenté... 


Largement inspiré des sources Basic Hi-Soft fournis, 
ce programme utilise sa propre routine Pexec. En effet, 
nous avons rencontré certains problèmes lors de l'exé- 
cution du Exec(3...) du GfA, qui nous ont poussés à en 
faire l'appel directement en assembleur. 


Sébastien Mougey 


\ Utilisation de morceaux Quartet 
\ en Basic GfA 3 


A! 


RESERVE 50000 ILibère de la mémoire 


IRéserve mémoire morceau 
Réserve mémoire voix 


adr_morceau$=MALLOC (10000) 
adr_voix+=MALLOC (200000) 


nom$="SINGSONG. PRG”+CEHR$ (0) 
FOR f%=0 TO 40 STEP 2 

READ r% 

DPOKE adr_morceau$+f$, r$ 
NEXT £$ 
FOR f%=1 TO LEN(nom$) 

POKE adr_morceau$+40+f$, ASC (MID$ (nom$, £%,1)) 
NEXT f$ 


Lecture datas 


-C:adr morceau () IPexec 3 (Load and not Go) 
adr _prog$=LPEEK (adr_morceau$+34) lAdresse de singsong 
adr_call$=adr_progt+256 Adresse de lancement 








BLOAD “DEMOL.4V”,adr morceau* Chargement morceau 
BLOAD "“VOICE.SET",adr voix? Chargement voix 
LPORE adr call$+12, adr morceau? Pour: singsong 
LPOKE adr call$+16,adr voix? l(c£ doc Quartet) 


\ 


-C:adr cal1${() Lancement singsong 

4 

Libère mémoire singsong 
ILibère mémoire morceau 
ILibère mémoire voix 


-MFREE (adr_prog) 
"MFREE (adr_morceaut) 
MFREE (adr_voix) 

\ Routine Pexec, tirée de la disquette ‘Quartet 2! 
DATA &H487A, 6H0034, &H487A, &H0030, &H487A, &HO01F 
DATA 6H3F3C, 640003, &H3F3C, GH004B, &HAE41, &HDEFC 
DATA 6H0010,6H41fa, 6H0006,6H2080, &H4E75, &H0000 
DATA 6H0000,&H0000, &H0000 


FRS A ME ue RE 
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MEL UJ 
ES 

VINDNSsU 

La puissance d’une chaîne 


La passion d’un spécialiste 
Æ : 56.44.47.70 / 56.79.34.89 


BESNNOUAMIAUREENE / $ 
À DES PRIX FABULEUX ET AVEC 
CHAQUE TITRE 1 CADEAU 

1 jeu à choisir dans la liste ST ci-contre 
F29 ATARI ST 269F TTC 
ROCK STAR( I WAN) 295 F TTC 
ITALY 90 249F TTC 
OPERATION STEALTH 315 F TTC 
MAUPITI ISLAND 295 F TTC 
MIDWINTER 300F TTC 
SIM CITY 300F TTC 
CONQUEROR 290F TTC 
IVANHOE 249F TTC 
GHOST AND GOBLINS 249F TTC 
ULTIMATE GOLF 265F TTC 
GOLD OF AMERICAS 249F TTC 
JUMPING JACK SON 249F TTC 
MENNIS CUP 290F TTC 
COMPTE CHEQUE GESTION 

FAMILIALE 250F TTC 





(BENSNTOIOA NS NE SES IT 
A DES PRIX FABULEUX ET AVEC 
CHAQUE TITRE 1 CADEAU 
1 jeu à choisir dans la liste (ci contre) 
amiga à 99 frs 
249F TTC 
269F TTC 
295 F TTC 
300F TTC 


ROCK STAR 

SIM CITY 

JUMPING JACK SON 249F TTC 
NNIS CUP 290F TTC 


RES UESEURES À DES 
PRIX FABULEUX ET AVEC CHAQUE 


TITRE 1 CADEAU 
1 jeu à choisir dans la liste (ci-contre) 
PC 
290F TTC 
320F TTC 
320F TTC 
549F TTC 


| BREAK STONE 


IMOYAGEUR DU TEMPS 
FLIGHT SIMULATOR 4 


HOUSSE TRANSPORT 
DISQUETTES 3"1/2 
49,00F 
HOUSSE MEGAST1,520 ; = 
IDD AMIGA 206 HOUSSE CONSOLE 
159,00F = 21) 


HOUSSE 
PORTFOLIO 159,00F 





LOGICIELS DE JEUX À 99 F POUR ATARI 
ST/STE 


AMIGA 500 / IBM ET COMPATIBLE:PC *" 


ATARI ST/STE 
AXEL MAGIC HAMMER ST/STE (FRA) 
BARBARIAN (PSY) ST/STE (FRA) 
CASTLE WARRIOR ST/STE (FRA) 
CHUBY CRISTLE ST (FRA) 
COMPILATION ACTION ST VOL II ST (FRA) 
COMPILATION GEN D'OR ST (FRA) 
DEFLECKTOR ST/STE (FRA) 
DOUBLE DETENTE ST/STE (FRA) 
EXPLORA | ST/STE (FRA) 
FORGOTTEN WORLD ST/STE (FRA) 
GAME SUMMER EDITION ST/STE (FRA) 
HATEST (FRA) 
HUMAN KILLING MA 
GENIUS ST/STE (FRAÏŸ 5 
GARIELD ST (FRA) 
INCORRUPTIBLES SSTE FR 
INTERNATIONAL ÉOI 


RE ST (FRA) 
NECRON ST/STEMFRA) 
NEVER MIND & TE (FRA) 
ONSLAUGHT S 
OPERATION T 
OPERATION W 1 S 
OIL IMPERIUMP 
RUN THE GAUR 


SPACE QUEST 
VICTORY ROA 
VOYAGEUR ST (Ra 
WIZARD WARZ SWSIEE, 


ASTAROTH (FRA) 

AXEL MAGIC HAMME 
BARBARIAN 2 (FRA) 
BATMAN (FRA) 

CASTLE WARRIOR 

DATA STORM (AN 

EXPLORA I(FRA) 

DOUBLE DETEN FR; 
FORGOTTEN WORLD (FRA) 
INCORRUPTIBLES (FRA) 

OIL IMPERIUM (FRA) 
ONSLAUGHT (FRA) 
OPERATION THUNDERBOLD (FRA) 
ROBOCOP (FRA) 

STORM LORD (FRA) 

SWORD OF TWILIGHT (ANG) 


QUANTITÉ LIMITÉE CHOISISSI 


AU MOINS:2" 
TITRES DÉ REMPLAC NT 


GES 31/2 
DEMARQUÉES DF/DD 


60F LES 10 280F LES 50 


500F LES 100 2450 F LES 500 





POCHETTE DOMAINE PUBLIC:+. 30 LOGICIELS 
149,00 F POUR ATARI STEIST ET AMIGA 


AVEC BOITES ET ETIQUETTES 
AIS D'ENVOI FORFAIT 30,00F 


A'RENVOYER A MICRO VIDEO 3 COURS ALSACE ET LORRAINE 33000 BORDEAUX 


BON DE COMMANDE 


FRAIS D'ENVOI ET D'EMBALLAGE 
1 À 3 LOGICIELS 25 f 
5 À 9 LOGICIELS 50 f 
10 LOGICIELS =FRANCO 
AJOUTER LES FRAIS D'ENVOI A VOTRE COMMANDE 


code postal 


chèque [J ou mandat carte [ 


Offres valables dans la limite des stocks disponibles 


DESIGNATION 


PX UNIT PRIX TOTAL 


PORT 
TOTAL. == 


ST/STE (FRA) _4@fli, 





DISK 5 1/4 PC 
CAPONE (ANG) 
BILL BUDGE (ANG) 
CHARLIE CHAPLIN (ANG) 
ALTERNATY REALITY (ANG) 
ELITE (ANG) 
COMMANDO (ANG) (1) 
DRILLER (ANG) 
DEEP (FRA) 
BAAL (FRA) 
DIG DUG (ANG) 
NEBULUS (FRA) 
GATO (ANG) 
DALEY THOMPSON'S (FRAJEMR 


}| DARK SIDE (FRA) 
“LCALIFORNIA GAMES (ANG) 
[ISTREET FOOTBALL (ANG) 
AMHE MANHOLE (ANG) 4 
JfÉOP GUN (ANG) ; 


DREAM WARRIOR (FRA) 
STREET FIGHTER (FRA: 
BIONIC COMMANDO AA) 
NIGHT RAIDER (ANG) 
ZARD CROW (FRAÏ 
TING GRAND PRIX(ANG) 
REET SPORT SOCCER (FRA) 
GAME SUMMER: DIHION(ANG) 


HNIVITED (ANG) Le 
ICOMPILATION(IMPOSSIBLE MISSION WORLD 


GAMES,STREET SPORT BASKETBALL) (ANG) 


HZOOM (ANG) ; 
|WIZARD WARZ (FRAŸ 


/LEGACY OF ANCIENFS (ANG) 
AAARGH (ANG) fs 


 VULCAN (ANG) 
| ACE (ANG) 


L 


WORLD GAMES (ANG) 
WAR IN THE MEADDLE EARTH (ANG) 
PLATOON (ANG) # 

PATTON VS ROMMEL (ANG) 
SPACE HARRIER (640 KO) 

BACK EM (FRA) 

FAST BREAKER (FRA) 

CHESS MASTER 2900 (FRA) 

ACES HIGH COMPILATION (FRA) 
MINI PUTT (FRA), 

LORD OFF CONQUEST (FRA) 
ARTICFFOX (FRA) 

WORLD CLASS LEADER BOARD (ANG) 
TECHNOCOP (FRA) 

THE SHADOW QE MORDER (ANG) 
PALADIN (ANGIW 

ANCIEN ÉAND) ‘à YS (ANG) 

THE TRAIN (FRA 

IMPACTWANGH 

4 TH INGHESAANG) 

CHUCK YEAGERS (FRA) 
PALADIN QUEST DISK (ANG) 
ORBITER (ANG) 

SERVE AND VVOLLEY (FRA) 
BARD'S TALE (FRA) 

BARD'S TALE Il (FRA) 

4X4 (ANG) 

WORLD TOUR GOLF (FRA) 

RACK EM (FRA) 

KARATEKA (ANG) 

SOLOMON'S KEY (FRA) 

HUMAN KILLING MACHINE (FRA) 
PEGAGUS (FRA) 

TWILIGHT ZONE (ANG) 


| MOINS 2 


(FRA)= DOCUMENTATION FRANCAISE 
(ANG)=DOCUMENTATION ANGLAISE 


DISK PC 3 1/2 AND 5 1/4 
THE BLACK GAULDRON (ANG) 
HEAVY BARREL (ANG) 


SECRET AGENT( ANG) 






































Il y a deux numéros, 
lorsque nous avons 
commencé notre noyau 
multitâche, il nous a fallu 
introduire plusieurs 
notions nouvelles, le 
programme jouant plutôt 
un rôle de support. Ce 
mois-ci, nous allons 
délaisser un peu la théorie 
pour nous concentrer un 
peu plus sur le programme. 
Nous allons donc implanter 
des fonctions nouvelles 
telles que la possibilité de 
stopper/ redémarrer une 
tâche ou bien encore la 
possibilité d'attribuer à 
chaque tâche une priorité. 


REALISATION D'UN 
NOYAU MULTITACHE 














ISUITE ET FIN] 


LA NOTION DE PRIORITE 


Lorsqu'on pense priorité, on pense 
immédiatement aux interruptions. 
Une interruption de niveau 2 peut 
être interrompue par une interruption 
de niveau 3 qui peut elle-même être 
interrompue par une interruption de 
niveau 4, etc. Dans le cas qui nous 
concerne, ce n'est pas tout à fait la 
même idée. En effet, il ne s'agit pas 
de donner la possibilité à une tâche 
d'en interrompre une autre mais plu- 
tôt de donner plus d'importance à 
une tâche qu'à une autre. 


Il existe plusieurs façons de privilé- 
gier une tâche. On peut, par 
exemple, dans le cadre des res- 
sources non-partageables, faire en 
sorte que si deux tâches demandent 
l'imprimante, c'est la tâche prioritaire 
qui l'obtient. Mais cette solution 
dépasse largement le cadre de notre 
programme. La méthode que nous 
allons employer consiste à attribuer 
plus de temps machine à une tâche 
prioritaire, et ainsi, une tâche de 
priorité 2 “tournera” 2 fois plus vite 
qu'une tâche de priorité 1. Nous 
allons voir comment la programmer. 


GERER LES PRIORITES 


La programmation des priorités telle 
que nous l'avons définie ne pose 
aucun problème particulier. Souve- 
nez-vous de nos histoires de “Time 
Slice”. Si l’on veut attribuer la priori- 
té 2 à une tâche, il suffit de lui don- 
ner la main pendant 2 “tranches de 


- 100 - 


temps” au lieu d'une. Dans notre 
programme, les étiquettes PRIO et 
PRIOCOUR ont été rajoutées. PRIO 
représente 5 mots qui sont la priorité 
respective de chaque tâche. PRIO- 
COUR représente la priorité de la 
tâche courante. Cette valeur est ini- 
tialisée au début d'une nouvelle 
tâche et décrémentée à chaque 
“time slice”. Lorsqu'elle arrive à 0, 
on passe à la tâche suivante. 
Reportez-vous à l'étiquette NOYAU 
pour voir les quelques modifications 
qui ont été nécessaires. Nous allons 
voir maintenant comment stopper 
une tâche et la redémarrer. 


STOPPER/REDEMARRER UNE 
TACHE 


implanter de telles fonctions corres- 
pond à rendre notre moniteur un 
peu moins rudimentaire. En effet, la 
tâche 0 (puisque c'est d'elle qu'il 
s'agit) se contentait jusqu'à mainte- 
nant de stopper le programme lors- 
qu'on presse la touche ESPACE. 
Nous allons traiter quatre nouvelles 
touches À, Z, E et R, qui sont res- 
pectivement dédiées aux tâches 1, 
2, 3 et 4. La pression d’une de ces 
touches permet, soit de stopper la 
tâche si elle est active, soit de la 
redémarrer si elle est déjà stoppée. 
Il faut noter que la structure des 
tâches a été un peu modifiée par 
rapport à notre précédent article, car 
il était jusqu'à maintenant impos- 
sible qu'une tâche se termine (elle 
devait reboucler sur elle-même). Ce 
n'est plus le cas, il suffit que la tâche 





# 


se termine par BRA ENDTACHE et 
le temps CPU qui lui était alloué 
sera restitué aux autres tâches., 
Ainsi, sans que l'utilisateur ne fasse 
rien, toutes les tâches finiront par 
être stoppées. Nous allons donc dis- 
tinguer 3 cas : 


* on interrompt une tâche : 

* on redémarre une tâche précé- 
demment stoppée ; 

* on redémarre une tâche alors 
qu'elle était arrivée à son terme. 





; MULTITA2.IS 

; ST Mag/Computer's Dream 1990 

; Ecrit en GFA Assembleur, fonctionne 
; sur écran couleur de préférence 

; utiliser les touches À 2 E R pour 

; stopper et relancer les tâches 1 2 3 4, 















:TEXT 
lea.l  pile,sp 
Hoic À -(sp);passèr en superviseur 
: move.w  #$20,-(sp) 
. trap #1 
 addq.l  #6,sp 
move.l  d0,ex pile 
: move.w  #3,-(sp) 
trap #14 ;xbios (3) | 
addq.l  #2,sp 
M move.l  d0,sys00 adresse physique 
" move. l  d0,sys01 ;adresse logique 
software end of intérrupt 
\'bcir #3, Sfffal7 
jon coupe it clavier 
Fobclr. #6, Sfffa09 | 
bsr initache 
_ movea.l f#piletO0,sp 
 move.w  #$52700,sr ;it interdites 
move.l #noyau,$110 ;timer D 
bset #4, Sfffal5s 
” bset #4, Sfffa09 
Mori.b  #7,Sfffald 
» move.b #12,Sfffa25 ;1KHz 
move.w  pri0,priocour 
move.w. #$52300,sr 
bra tache0 
fin: 
on coupe timer À 
bclr #4, Sf£fa09 
autorise it clavier 
bset #6, Sfffa09 
quit: 
 move.l ex pile,-(sp) ;user 





Pour cela, nous avons utilisé 2 
tables différentes, ONOFF qui 
indique si une tâche est ON ou OFF, 
et STOP qui nous permet de savoir 
si une tâche est stoppée où non. 
Notre “noyau” se verra donc attri- 
buer la fonction supplémentaire de 
vérifier que la tâche à laquelle il 
souhaite donner la main n'est pas 
stoppée. 


La seule fonction qui appelle, peut- 
être, un commentaire est celle qui 


move.w #$20,-(sp) 

trap #1 
addq.l #6,sp 

cir.w = (sp) 

trap #1 NEA 


: initache 
; initialisation des tâches 


initache 

lea. 1 onoff,a0 
move.l #-1,{(a0)+ 
move.l #-1,{(a0)+ 
move.w  #-1, (a0)+ 
lea.l stop,al 
cir.1 (al)+ 
cir.l (al)+ 
clr.w {al)+ 
cir.w tachecour 
lea.l  ppile,al 


HpiletO, (a0)+ 


lea.l 
move.l 


piletl,al 
#tachel,-(al) ;po 





move.w  #$2300,-(al) ;sr 
emplacement pour 15 registres 
lea. 1 -60 (al) ,al 

move,l al, (a0)+ 

leatl  pilet2,al 

move.l #tache2,-(al) ;po 
move.w #$2300,-(al) ;sr 
D pour 15 registres 
leæ1  -60(al),al 

move.l al, (a0)+ 

lea.l  pilet3,al 

move.l #tache3,-{al) ;pc 
move.w  #52300,-(al) ;sr 
remplacement pour 15 registres 
lea.l -60(al),al 

move.l al, (a0)+ 

lea.1 pilet4,al 

move.l #tache4,-(al) 


PC 


redémarre une tâche alors qu'elle 
était terminée. En fait, c'est très 
simple, il suffit de procéder comme 
à l'initialisation de la tâche puis de la 
déclarer ON et non STOPpée. 


Voilà, c'est ainsi que se termine 
notre exploration du multitâche, en 
espérant qu'elle aura suscitée en 
vous la curiosité d'aller plus loin. 


< Franck Jeannin a 








move.w  #$2300,-({a1) St 
emplacement pour 15 registres 
lea.l -60{al),al 
move.l  al,(a0)+ 
rts 
noyau: 
subq.w  #l,priocour 
bne rte 
movem.l d0-d7/a0-a6,-(sp) 
move.w. tachecour, d0 
1sl.w #2,d0 
lea.l  ppile,a0 
move.l sp,0(a0,d0.w) 
nexttache: 
addq.w #1,tachecour 
cmpi.w #4,tachecour 
ble e000 
clr.w tachecour 
e000: 
move.w  tachecour, d 
add.w  d0,d0 
lea.l stop, a0 
tst.w 0(a0, d0.w) 
bne nexttache 
lea.l  prio,a0 
move.w 0(a0,d0.w),priocour 
add.w d0, dû 
lea.l ppile,a0 
movea.l 0(a0,d0.w),sp 
movem.l (sp)+,d0-d7/a0-a6 
rte: 
rte 
f tache 0 
tache0: 
moveq.l #0,d0 
move.b S£fffc02, dû 
cmpi.w #$39,d0 
beq fin 
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#$10,d0 
ctrll 
#$11, d0 
ctr12 
#512, d0 
ctr13 
#513,d0 
ctrl4 
tache0 


onoff+2 
relancel 
stop+2 


relache 
tache0 


pilet1, a0 


#tachel, -(a0) 
#52300,-(a0) 


#-1,on0£f+2 
stop+2 
relache 
tache0 


onoffr4 
relance? 
stop+4 


relache 
tache0 


pilet2,a0 
ftache2,-(a0) 
#$2300,-(a0) 


#-1,onoff+4 
stop+4 
relache 
tache0 


onoff+6 
relance3 
stop+6 
relache 
tache0 
pilet3,a0 


#tache3,-(a0) 
#$2300,-(a0) 


4-1, onoff+6 








St 
bra 


ctrl4: 
tst.w 
beq 
not .w 


bsr 
bra 
relance: 


lea.l 


move.l 
move .W 


move .w 
cir.w 
bsr 
bra 


relache: 
moveq.l 
move .b 
btst 
beq 
rts 


; tâche 1 


tachel: 
movegq.1l 

b001b: 

movea.l 


moveq.l 
b001: 
moveq.1l 
b002: 
not.w 
dbra 
lea.l 
dbra 
dbra 
bra 


; tâche 2 
tache2: 
b003c: 


lea.l 


b003: 


b004: 
cir.w 
dbra 





moveq.l #100,d7 


movea.l sys00,a0 


moveq.l #99,dl 


moveq.l #39,d0 






clir.w  stopt6 
b relache 


tache0 


onoff+8 
relance4 
stop+8 


relache 
tache0 


pilet4,a0 


#tached4, - (a0) 
#$2300,-(a0) 


#-1,onoff+8 
stop+8 
relache 
tache0 





#0, d0 
S££fc02,d0 
#7, d0 
relache 


#100, d7 
sys00,a0 
#99,d1 
#39, d0 
(a0)+ 
d0,b002 
80 (a0),a0 
d1,b001 


d7,b001b 
endtache 


80 (a0),a0 





(a0)+ 
d0,b004 | 
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80 (a0) , a0 
d1,b003 






pause 
















movea.l sys00,a0 
lea.l  80(a0),a0 
























#99, d1 


#39, d0 





#-1, (a0)+ 
dbra d0,b004b 
lea.l 80 (a0) ,a0 
di,b003b 






pause 
dbra d7,b003c 
endtache 


#15, d2 
#159,d0 
#99, di 
d0-d7/a0-a6, - (sp) 
addi.w  #100,d1 


bsr point 
(sp)+,d0-d7/a0-a6 





di,b006 
dbra d0,b005 
dbra d2,b005b 
endtache 


#15, d2 
#99, d1 
#159, d0 


d0-d7/a0-a6,-(sp) 
addi.w  #160,d0 
addi.w  #100,d1 
bsr point 

(sp)+, d0-d7/a0-a6 








d0,b008 


dbra di,b007 
dbra d2,b007b 


bra endtache 


; point ; affichage d’un point 










d0 position x 
dl position y 
d2 couleur 


» entrée: 








sys00,a0 
#160,d1 



























dl, a0 
move.w  d0,dl 
andi.w  #$f,d0 ;No du bit ds le mot 
andi.w #$Sfff0,d1 
lsr.w  {#1,dl 

| lea.l 0(a0,d1.w),a0 ;adresse 

+ neg.w dû 
addi.w  #15,d0 

- move.w (a0),d1l 

_ btst #0, d2 

| beq e010 

» bset d0, dl 

| bra e011 

6010: 

 bcir d0,d1 
011: 

b move.w dl, (a0)+ 

Mmove.w (a0),d1 

b btst #1,d2 

| beq e012 

! bset d0, di 

L bra e013 

e012: 

» bcilr d0, di 

e013: 

Wmove.w di, (a0)+ 

M move.w (a0),di 

 btst #2, d2 

| beq e014 

 bset dû, d1l 
bra e015 





d0,d1 






d1, (a0)+ 










(a0),d1 






btst #3,d2 
beq e016 
bset dû, d1 

e017 








d0,d1 


di, (a0)+ 






#32000, d0 














bpause: 

nop 

nop 

nop 

dbra d0, bpause 

rts 
: endtache 
; arrête une tâche 
endtache: 

move.w tachecour, d7 

add.w  d7,d7 

lea.l  stop,al 

lea.l onoff,al 

clr.w O(al,d7.w) Off 

move.w #-1,0(a0,d7.w) ;stoppe 
waittimer: 

bra.s waittimer 

.DATA 
priorité de chaque tâche 
prio: 

DC 12153 

.BSS 
ex pile: 

.DS.1 l 
sys00:: 

DS 1 ;écran physique 
sys01:: .DS.1 1 ;écran logique 
tachecour: / 

.DS.w 1 ;No de tâche courante 
emplacement pour les 5 pointeurs de pile 
ppile: î 

DS LS 
debutpile: 

08/1/7500 
pile: 

.DS.1 500 
pilet0: 

.DS.1 500 
pilet1: 

.DS.1 500 
pilet2: 

.DS.1 500 
pilet3: 

.DS.1 500 
pilet4: 
iétat on ou off de chq tâche 
onoff: .DS.w 5 
jétat stoppé ou non de chq tâche 
stop: .DS.w 5 


priorité de la tâche courante 
priocour: .DS.w 1 


.END 





- 103 - 


IN 
me | 





LES SCROLLINGS 



































nn msn 





Ce mois-ci, pour clôturer 
notre série, nous verrons 
une application des 
fonctions FGET et FPUT 
développées le mois 
dernier, deux routines 
assembleur pour la 
réalisation des fonctions 
miroir vertical et horizontal 
et une dernière pour le 
décompactage d’une image 
DEGAS. 


RECTIFICATIF 


Une énoooorme erreur a été commi- 
se le mois dernier, le codage de la 
couleur m'’ayant échappé. En basse 
résolution, chaque pixel est codé 
sur 4 bits appartenant chacun à un 
plan de couleur (constitué de 1 
mot). Une subtilité du système fait 
que le bit de poids faible du registre 
se retrouve dans le mot de poids 
fort et inversement. Pour travailler sur 
les registres 0 à 8, il faut donc que 
PLAN%=&x1110 et non pas un bête 
PLAN%=8&x0111. Arghhh!, le remords 
me ronge. 


VOYAGE COSMIQUE 


C'est un grand classique des 
démos. À bord de votre faucon mil- 
lenium, vous fendez l'espace et 
voyez les planètes et soleils surgir 
du fin fond de votre écran. Le même 
1principe est utilisé pour la traversée 
d'un champ d'astéroïde (comment 
ça, je délire !)..Les astéroïdes gros- 
sissent en arrivant sur vous pour 
atteindre la taille de 64 pixels de 


côté (sur le pare-brise du vaisseau, 
ça fait mal). Les différentes tailles de 
sprites ont été obtenues en rétrécis- 
sant le plus gros (64/64) grâce à 
l'option stretch de DEGAS. Seuls 2 
plans de couleur ont été utilisés 
(Plan%=&x1100, ce qui permet d’uti- 
liser les registres 0,1,2,3 - O étant le 
registre de gauche dans Degas). 
Cela permet d'être suffisamment 
rapide pour animer 80 sprites simul- 
tanément (de 8 à 80 par les touches 
de fonction). Vous pouvez tester le 
programme grâce à la routine DES- 
SINE_ASTEROIDE mais le résultat 
est beaucoup moins convaincant 
qu'avec des sprites dessinés à la 
main. Vous trouverez le listing basic 
dans le premier encadré intitulé 
judicieusement ASTEROID. 


MIROIR, MIROIR, QUI EST LA 
PLUS BELLE? 


Ces fonctions de miroir horizontal et 
vertical permettent de retourner par 





EN CFA 


rapport à un axe vertical ou horizon- 
tal, un bloc de largeur et de hauteur 
quelconque (en basse résolution 
uniquement). L'appel de ces fonc- 
tion est réalisée par : 


VOID C:Miror vè(L:S$,L:H$,L:L$) 


où S% est l'adresse de l'écran où 
figure le bloc, H% est la hauteur du 
bloc en nombre de lignes (1 à 200), 
et L%X la largeur en nombre de 
paquets de 16 pixels (1 à 20). Ces 
fonctions sont utiles lorsque les 
sprites à animer se dirigent dans les 
deux directions (droite gauche, haut 
bas). Il suffit alors de dessiner les 
sprites dans l’une des deux direc- 
tions et d'en prendre le miroir par la 
suite. De cette façon, on libère un 
peu de place sur les disquettes tou- 
jours trop chargées. Consultez le lis- 
ting MIROIR pour l'installation de 
ces routines. Et comme à l'habitude, 
ST MAG vous montre ce qu'il y a 
sous le capot de ces deux fonctions. 





MIROIR VERTICAL 





CPPAPIPEL LPLIPZIPSIPE 





tie 


Miroir de chaque plan PUIS 
de couleur P1,2,3,4 


MIROIR HORIZONTAL 





Echange de 16 pixels 
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ECHANGE D'UME LIGNE 


Reportez-vous au listing assembleur 
MIROIR_V et MIROIR_H pour en 
savoir d'avantage. : 
Le principe est assez simple. Pour 
le miroir horizontal, il suffit d'échan- 
ger une ligne du haut contre une 
ligne du bas (avec passage dans un 
tampon). Pour le miroir vertical, c'est 
plus délicat. Il faut échanger un 
paquet de 16 pixels de la gauche 
par un paquet de la droite en ayant 
auparavant inversé les bits de 
chaque plan de couleur (bit O0 à la 


DECOMPACTAGE DEGAS PI1 


C'est promis, je ne vous rappellerai 
pas le format d'une image DEGAS 
compactée (reportez vous au numé- 
ros 17 page 44 et 23 page 133). Le 
listing assembleur est la traduction 
de la routine basic donnée dans le 
numéro 23. || suffit de 0,65 à la routi- 
ne assembleur contre 5 environ 
pour la version GFA 3 compilée et 
405 ! pour la version interprétée. Le 
décompactage est réalisé par : 





VOID C:d degast(L:image comp#, 
L'image decomp$) . 


Consultez les listings basic (encadré 
DEC_DEGA) et assembleur 
(DECOMP) ainsi que le schéma et 
rien n'aura plus de secret pour vous 
(enfin presque). Allez, bonnes 
vacances | 


. STupfred 





place du bit 15, etc.). 


Astéroïd 


Sauve les registres >A3 pour la compilation 


{on met en place les différents écrans 
linstalle la fonction de scroll 
charge les sprites ou 

dessine les sprites 


! @charge degas 
êdessine asteroide 
@variables 

VOID XBI0S(5,L:e2%,L:e2%,W:-1) laffichage de E2 
nb_spritet=40 

DO 


EXIT IF MOUSEK OR INKEYS=" “ 

BMOVE e1%,e2%,32000 ‘transfert de El vers E2 
faffiche 

@clavier 

VOID XBIOS(5,L:e3%,L:e2%,W:-1) laffichage de E2 
VSYNC 


SWAP e2%,e3% bascule des 2 écrans physiques 


RESERVE FRE (0)-100000 
e1%=GEMDOS (72,L:32000) 
e21%=GEMDOS (72,1:32260) 
e31%=GEMDOS (72,L:32260) 
e2%=(e21% AND &HFFFF00)+256 
e3%=(e31% AND &HFFFFO0)+256 
RETURN 
PROCEDURE fin 
fin: 
SHOWM 
VOID XBIOS(6,L:VARPTR(palette$)) rétablit palette 
VOID XBIOS(5,L:XB10S(3),L:XBIOS(3),W:-1) 
VOID GEMDOS (73,L:e1%) 
VOID GEMDOS (73,L:e21$) 
VOID GEMDOS (73,L:e31%) 
VOID GEMDOS (73,L:fput$) 
VOID GEMDOS (73,L:fget$) 
RESERVE 
END c'est fini 
-JRETURN 
PROCEDURE charge degas 
couleur$=STRINGS (32,” “) 


écran qui scrolle 
1er écran physique 
\2em écran physique 


! on libère la mémoire 





OPEN ‘i”,#1,"\asteroid.pil” 

SEEK #1,2 

BGET #1, VARPTR(couleur$),32 charge les couleurs 
VOID XBIOS(6,L:VARPTR(couleur$)) 

SEEK #1,34 


BGET #1,e1%, 32000 charge l'image 


fgett=GEMDOS(72,1:152) !de la place pour fonction get 
RESTORE fget 
1$=0 
DO 

READ codes 

EXIT IF code$="fin” 

code$="£5H"+code$ 

code*=VAL (code$) 

fget$=faet $+MKIS (code) 

INC i$ 
LOOP à 
BMOVE VARPTR(fget$), fget, 152 
fget: 
DATA 206F,0004,202F,0008,222F,000C,242F, 0010, 262F, 0014 
DATA 246F,0018,282F,001C, 49D2, 45EA, 001E, 28C4, E888,E788 
DATA C2FC,00A0,D280,D1C1, 3E02,E78F, 2C07, 4487, 0687, 0000 
DATA 00A0,5187, 2807, 5087, 5382, 5383, 28C2, 28C3, 70FF, 7C03 
DATA 0D04,6700, 000€, 5280, 2206,E389, 4481, 5C81, 38C1, 51CE 
DATA FFEC,2C00, 5286,E38E, 99C6, D9FC, 0000, 0008, 2880, 3203 
DATA 2002,7C03, 0D04, 6700, 0004, 34D0,41E8, 0002, 51CE, FFF2 
DATA 51C8,FFEC,D1C7,51C9,FFE4, 475, fin 
fput#=GEMDOS(72,1:936)  !de la place pour fonction put 
RESTORE fput 
14=0 
DO 

READ codes 

EXIT IF code$="fin" 

code$="£H"+code$ 

code*=VAL (code$) 

fput$=fputS$+MKI$ (code+) 

INC i% 
LOOP 
BMOVE VARPTR (fput$), fput+, 936 
fput: 
DATA 202F,0004,222F, 0008, 206F, 000C, 286F, 0010, 0C40, 0140 
DATA 6500,0004,4E75, 4A40, 6C00, 0004,4E75, 0C41, 00CB, 6500 
DATA 0004,4E75, 4A41, 6C00, 0004, 475, 45E8, 001E, 23E8, 0004 
DATA 0005,C64A,23E8, 0008, 0005,C652, 23FC, 0000, 0000, 0005 
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DATA C64E, 2C00, 0286, 0000, 000F, 4486, 0686, 0000, 0010, 13FC 

DATA 0000,0005,C644,E888, 2800, 2A00, DAA8, 0008, 0C05, 0013 

DATA 6500,0036, 4484, 0684, 0000, 0013, 23C4, 0005,C652, 4484 

DATA D8A8, 0008, 228, 0018, 5285,E38D, CAC4, 23C5, 0005, C64E 
DATA E78C,D989, 0005, C64A, 13FC, 0001, 0005,C644,E788, 2E28 
DATA 000C, 2801, 2A01, DAA8, 000C, 0C45, 00C8, 6500, 000C, 4484 
DATA 0684,0000, 00C8, 2E04,C2FC, 00A0, D280, D9C1, 2828, 0018 
DATA 0C04,0002, 6700, 00BC, 0C04, 0001, 6700, 0184, 4A04, 6700 
DATA 0226, 23C7,0005,C646,2039,0005,C652, 7200, 7400, 7600 
DATA 7800, 4241, 4242, 4243, 4244, 7A00, 4247, 3A1A, EDAD, 8E85 
DATA 8285, 4841, 7A00, 3A1A, EDAD, 8E85, 8485, 4842, 7A00, 3A1A 
DATA EDAD, 8E85, 8685, 4843, 7A00, 3A1A, EDAD, 8E85, 8885, 4844 
DATA 7A00,4847,4647,CF54,835C,CF54, 855C,CF54,875C,CF54 
DATA 8950, 51C8,FFAE,D5F9, 0005, C64E, 4A39, 0005, C644, 6600 
DATA 0022,4847,4841, 4842, 4843, 4844, 4647,CF54,835C, CF54 
DATA 855C,CF54,875C,CF54, 895C, 49EC, FFF8, 508C, D9F9, 0005 
DATA C64A, 2E39,0005,C646, 51CF,FF58, 4E75, 43D4, 4BD4, 4DD4 
DATA 7800,3828,0010,D9C4, 3828, 0012,DBC4, 3828, 0014, DDC4 
DATA 23C7,0005,C646, 2039, 0005,C652, 7200, 7400, 7600, 4241 
DATA 4242, 4243, 7A00, 4247, 3A1A, EDAD, 8E85, 8285, 4841, 7A00 
DATA 3A1A, EDAD, 8E85, 8485, 4842, 7A00, 3A1A, EDAD, 8E85, 8685 
DATA 4843, 7A00,4847,4647,CF59,CF59,CF59,CF59,8354, 8555 
DATA 8756, 508C, 508D, 508€, 51C8, FFB8,D5F9, 0005,C64E, 4A39 
DATA 0005,C644, 6600, 0020, 4847, 4841, 4842, 4843, 4647,CF51 
DATA CF69,0002,CF69,0004,CF69, 0006, 8354,8555,8756, 5089 
DATA 508C, 508D, 508E,D3F9, 0005,C64A,D9F9, 0005, C64A, DBF9 
DATA 0005,C64A,DDF9, 0005,C64A, 2E39, 0005,C646, 51CF,FF4E 
DATA 4E75, 43D4, 4BD4, 7800, 3828, 0010, D9C4, 3828, 0012, DBCA 
DATA 23C7,0005,C646,2039,0005,C652, 7200, 7400, 4241, 4242 
DATA 7A00, 4247, 3A1A, EDAD, 8E85,8285,4841, 7A00, 3ALA, EDAD 
DATA 8E85,8485, 4842, 7A00, 4847, 4647,CF59,CF59,CF59,CF59 
DATA 8354,8555,508C, 508D, 51C8, FFCA, D5F9, 0005, C64E, 4A39 

‘ DATA 0005,C644, 6600, 001C, 4847, 4841, 4842, 4647,CF51,CF69 
DATA 0002,CF69,0004,CF69, 0006, 8354, 8555, 508C, 508D, 5089 
DATA D3F9,0005,C64A,D9F9, 0005,C64A,DBF9, 0005, C642, 2E39 
DATA 0005,C646,51CF,FF6E, 4E75, 43D4, 7800, 3828, 0010, D9C4 
pATA 230C7,0005,C646, 2039, 0005,C652, 7200, 4241, 700, 4247 
DATA 3A1A, EDAD, 8E85, 8285, 4841, 7A00, 4847, 4647,CF59,CF59 
DATA CF59,CF59, 8354, 508C, 51C8, FFDC,D5F9, 0005, C64E, 4A39 
DATA 0005,C644, 6600, 0018, 4847, 4841,4647,CF51,CF69, 0002 
DATA CF69,0004,CF69,0006, 8354, 508C, 5089, D9F9, 0005, C64A 
DATA D3F9, 0005, C64A, 2E39, 0005,C646, 51CF, FF8E, 4E75, 0000 
DATA 0000,0000, 0000, 0000, 0000, 0000, 0000, 0000, fin 

RETURN 

PROCEDURE sauve palette 

palette$=SPACES (32) 

FOR i%=0 TO 30 STEP 2 
DPOKE VARPTR(palette$)+1%,DPEER (&HFF8240+1%) 

NEXT i% 

RETURN 

PROCEDURE variables 

1 horiz$=32 Imodifiable 

h] | horiz$=20 lidem 

horiz : x$=(320-1 horizt) /2 

horiz_y#=(200-h | | horiz$) /2 

nb spritet=80 nb de sprites au maximum 

taillemax$=12 !12 tailles différentes 

DIM x b$(nb_sprites) ,y_b$ (nb  spritef) 

DIM d ['x$ (nb  spritet), d y*(nb spritet) 

DIM taille# (nb  spritet), sucé (nb spritet) 

DIM bloc$ (taillemax$), bloc$(taillemax$) 

DIM haut% (taillemax$) 
















































d4%=6X1100  !selection des plans de couleur 

RESTORE asteroide 

FOR i$=taillemax$ DOWNTO 1 
READ x$,y$,haut$ (1%), largè \1it données du sprite 
bloc$(i$)=SPACES (haut? (1%) * (Larg$*8) +30) 
bloc%(i$)=VARPTR (bloc$ (13) } ladresse dés sprites 
VOID C:fget#(L:e1%,L:x$,L:y$,L:largt, L:haut#(iè), 

L:bloc$ (1%),L:d4%) 





























NEXT i% 
asteroide: plus gros au plus petit, X,Y,hauteur, largeur 
DATA 0,0,64,4,64,0,56,4,128,0,48,3,176,0,40,3,224,0, 32,2 
DATA 256,0,24,2,288,0, 16, 1,304,0,8,1,0,64,6,1,16,64,4,1 
DATA 32,64,2,1,48,64,1,1 
FOR i%=1 TO nb spritef 
taille%(i$)=1 
x_b$(i#)=RANDOM(1 horiz$)+horiz x$ 
y_b?(1$)=RANDOM(h _horiz&)+horiz yè 
d x$(it)=x b$(i$)- -159 ldistance en x entre le sprite 
et le centre de l'ecran 
d_y$(it)=y_b$ (i$)-99 Idistance en y 
NEXT if 
VOID XBI0S(5,L:e1$,L:e2%,W:-1) l'affichage de E2 
CLS 
RETURN 
PROCEDURE affiche 
FOR p#=1 TO 12 laffiche les grandes tailles à la fin 
FOR i$=1 TO nb sprites 
IF tailles (i$)=p# IF d x$(i5)<0 
SUB x b${it), haut3 (tailles (1$))/2 !donne 


ELSE 1 les 
ADD x b+(it), haut3(tailles(it))/2 lcoordonnées 
ENDIF ldu centre 








IF d y#(i$)<0 fdu sprite 
SUB y_b#(it) ,haut3 (tailles (13) )/2 
ELSE 
ADD y_b#(is) ,haut (tailles (1$) )/2 
ENDIF 
IF x b$(i%)<0 OR x _b$(1$)>=319 OR y] b$(1%)<0 OR 
y1 b3>=199 OR taille%(i%)=taillemax 
x b$(i$) =RANDOM (1 | horizé)+horiz x$ 
y]  bs(i$) =RANDOM(h _horiz$)+horiz_y$ 
d x$(i$)=(x b$ (1?) - -159) /4 
d y$(i%)=(y_b$ (14) -99)/4 
tailles (i$)=1 
ENDIF 
VOID C:fput+(L:x b$(i%),L:y b$(i$), 
L:bloc$(taille®(i$)),L:e2%) 
\ ADD d x$(is),d x$(i$)/4 lfacultatif 
\ ADD d y*#(it), d y$(i$)/4 lidem 
ADD x _bé(it), d x$(1$) 
ADD y] "bt(it), d y%(it) 
INC sucé (1%) 
IF sucé(i%)>=2 
suce (15) =0 
INC taille* (1) 
ENDIF 


Itaille du sprite 


Inb de fois avec la même taille 





PROCEDURE clavier 


clavier$=INKEYS 
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IF LEN(clavier$)<>1 
clavier%=ASC (RIGHTS (clavier$)) 
ELSE 
clavier$=ASC (claviers) 
ENDIF 
SELECT clavier* 
CASE 59 TO 69 touches reconnues F1 à F10 
nb spritet=(clavier$-58)*8 !de 8 à 80 sprites 
ENDSELECT 
RETURN 
PROCEDURE dessine asteroide 
VOID XBIOS(5,L:e1%,L:e2%,W:-1) dessine sur El 
SETCOLOR 0,0,0,0 
SETCOLOR 3,5,5,5 
SETCOLOR 2,4,4,4 
SETCOLOR 1,3,3,3 
RESTORE asteroide 
FOR i%=1 TO 12 
READ x$,y*,haut$, larg? 
FOR j%=0 TO haut#/2 
INC couleur* 
IF couleur$=4 
couleur$=1 
ENDIF 
COLOR couleur* 
CIRCLE x$+thaut$/2,y%thautt/2, 3% 
NEXT j$ 
NEXT i$ 
VOID XBIOS(5,L:e2%,L:e2%,W:-1) 
RETURN 


Utilisation des miroirs en GfA 


lit les données 
des sprites 


On error gosub Fin 

On break gosub Fin 

£Load linstalle les fonctions MIROIR 

(Sauve palette 

Charge degas 

Rem Miroir vertical et horizontal 
ladresse source du bloc 
lhauteur du bloc 
largeur du bloc 


Void C:Miror h$(L:S$,L:H%,L:L#) 
Pause 50 

Void C:Miror vé(L:S%,L:H$,L:L$) 
Exit if Mousek Or Inkey$<>"" 


Reserve Fre(0)-5000 
Rem Miroir horizontal 
Miror h$=Gemdos (72, L:184) 
Restore Miror h 
1$=0 
Do 
Read Codes 
Exit if Code$="fin" 
Code$="£H4/"+Code$ 
Code%=Val (CodeS) 





Scrolling 


Miror_h$=Miror_h$+Mki$ (Codex) 

Inc I$ 
Loop 
Bmove Varptr(Miror h$),Miror h%,184 
Miror h: 
Data 206F,0004,202F, 0008,222F, 000C, 43D0, 2401, 5342,E74A 
Data D3C2,47D0, 49D1, 5380, 2410, 6100, 0060, 2203, 2428, 0004 
Data 6100,0056,2803,2411, 6100, 004E, 2083, 2429, 0004, 6100 
Data 0044,2143,0004,2281,2344,0004, 41E8, 0008, 43E9,FFF8 
Data B3C8, 6200, FFC8, 6600,0016,2410,6100,0022,2083, 2428 
Data 0004,6100,0018,2143,0004,47EB, 00A0, 49EC, 00A0, 41D3 
Data 43D4,51C8,FFAO, 4E75, 7C00, 7E0F, 0D02, 6600, 0008, 0F83 
Data 6000,0004,0FC3,5286, 51CF,FFEE, 7C10, 7E1F, 0D02, 6600 
Data 0008,0F83,6000,0004,0FC3, 5286, 5387, 0C47,000F,6600 
Data FFE8,4E75, fin 
Rem Miroir vertical 
Miror v=Gemdos (72, L:72) 
Restore Miror v 
1#=0 
Do 

Read Code$ 

Exit if Code$="fin" 

Code$="£H"+Codes 

Code*=Val (CodeS) 

Miror v$=Miror v$+Mki$ (Code*) 

Inc 14 

. Loop 

Bmove Varptr(Miror v$),Miror v%,72 
Miror v: 
Data 206F,0004,202F,0008,222F, 000C, 43D0, 45D0, 5380, COFC 
Data 00A0,D3C0, 47D1, 5381,2601, 2203, 2A10, 2C28,0004,20D1 


Data 20E9,0004,22C5,22C6, 5109, FFEE, 45EA, 00A0, 47EB, FF60 
Data 41D2,43D3,B3C8, 6200, FFDA, 4E75, fin 


Void Gemdos(73,L:Miror h$) 
Void Gemdos(73,L:Miror v$) 
Void Xbios(6,L:Varptr(Palette$)) !rétabli palette 
End 

Return 

Procedure Charge degas 
Couleur$=String$ (32, “) 
Open ‘i”,#1,"a:\image.pil” 
Seek #1,2 
Bget #1, Varptr(Couleur$),32  !charge les couleurs 
Void Xbios(6,L:Varptr (Couleur$)) 
Seek #1,34 
Bget #1,Xbios (2), 32000 
Close #1 

Return 

Procedure Sauve palette 
Palette$=Spaces (32) 
For I$=0 To 30 Step 2 

Dpoke Varptr(Palette$)+1%,Dpeek (SHFF8240+1%) 

Next 1I$ : 

Return 


Icharge l'image 


Décompression Degas, installation 


ON BREAK GOSUB fin 
ON ERROR GOSUB fin 
RESERVE FRE (0) -50000 
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@sauve palette 

@load linstalle la fonction de décompactage DEGAS PIL 
charge degas 

INPUT attentes 

@fin 

PROCEDURE charge degas 

couleur$=STRINGS (32," ") 

FILESELECT ‘“*.pcl”,"",nom$ 

OPEN “i”,#1,nom$ 

longeur$=LOF (#1) 

image comp$=SPACES (LOF (#1)) 

image compt=VARPTR(image comp$) limage compactée 
image decompt=XB10S (3) l'adresse de l'image décompactée 
SEEK #1,2 

BGET #1, VARPTR(couleur$),32  !charge les couleurs 
VOID XBIOS(6,L:VARPTR(couleur$)) 

SEEK #1, 34 

BGET #1, VARPTR (image comp$) , longeur$-34 charge image 
CLOSE #1 

t=TIMER 


PRINT (TIMER-t)/200 

RETURN 

PROCEDURE fin 

SHOWM 

VOID XBIOS(6,L:VARPTR(palette$)) rétablit palette 
VOID XBIOS(5,L:XBI0S(3),L:XBI0S(3),W:-1) 

VOID GEMDOS (73,L:4 degas®) 

RESERVE 

END Ic'est fini 


d_degas%=GEMDOS (72,L:182) lbien à l'abri 
RESTORE d_degas 
1%=0 
DO 

READ codes 

EXIT IF code$="fin" 

code$="&6H"+code$ 

code%=VAL (code$) 

d degas$=d degas$+MKI$ (code*) 

INC i$ 
LOOP 
BMOVE VARPTR(d degas$),d degas$, 182 
d degas: 
DATA 206F,0004,226F, 0008, 7200, 7600, 7800, 2449,D5FC, 0000 
DATA 7D00,7200,1218,0C01,0080, 654E, 4401, 12D0, 5203, 0C03 
DATA 0028,670E, 0C03, 0050, 6708, 0C03,0078, 6702, 6006, 93FC 
DATA 0000,009E, 0C03, 00A0, 6608, 93FC, 0000, 0006, 7600, 5204 
DATA 0C04, 0002, 6608, 7800,D3FC, 0000, 0006, 51C9,FFC2,D1FC 
DATA 0000,0001,B3CA, 65AA, 4E75, 12D8, 5203, 0C03,0028,670E 
DATA 0C03,0050, 6708, 0C03, 0078, 6702, 6006, 93FC, 0000, 009E 
DATA 0C03,00A0, 6608, 93FC, 0000, 0006, 7600, 5204, 0C04, 0002 
DATA 6608, 7800,D3FC, 0000, 0006, 51C9,FFC2, B3CA, 6500, FF64 
DATA 4E75,fin : 
RETURN 
PROCEDURE sauve palette 
palette$=SPACES (32) 
FOR i%=0 TO 30 STEP 2 

DPOKE VARPTR(palette$)+1%,DPEEK (&HFF8240+1+) 
NEXT i% 
RETURN 


VOID C:d degast(L:image comp$,L:image decompt) “+ >, 




















PROCEDURE greetings 
DATA Greetings to, Alain le bolivien,l'amirav,Duch,Boul 
DATA The IDN boys,And my little christine 

RETURN 


Miroir vertical 
MIROIR VERTICAL BASSE RESOLUTION APPELE DU GFA PAR 


;VOID C:ADR$ (L:ADR SOURCEY, L:HAUTEURS, L: LARGEUR$) 
: SANNIER Frédéric, ST MAG 90 


MOVE.L 4(SP),A0 Adresse source du bloc en haut gauche 


MOVE.L 8(SP),D0 Hauteur du bloc 
MOVE.L 12(SP),D1 Largeur du bloc (*16 pixels) 
LEA (A0),Al Côté gauche du bloc 
MOVE.L D1,D2 
SUBQ.L #1,D2 
LSL  #3,D2 
ADDA.L D2,A1 
LEA (A0) ,A3 
LEA (A1), A4 
SUBQ.L #1,D0 -1 pour le test dbra DO 

HAUTEUR Inversion de 16 pixels côté qauche 
MOVE.L (A0),D2 Plan 4 et 3 dans D2 
BSR MIROIR Inversion de chaque plan 
MOVE.1 D3,D1 On sauve les plans 4 et 3 dans D1 
MOVE.L 4(A0),D2 Plan 2 et 1 dans D2 
BSR MIROIR  Inversion de chaque plan 
MOVE.L D3,D4 On sauve les plans 2 et 1 dans D4 

;inversion de 16 pixels côté droit 
MOVE.L (Al),D2 Plan 4 et 3 dans D2 
BSR MIROIR  Inversion de chaque plan 
MOVE.1 D3, (A0) Copie des plans 4 et 3 à gauche 
MOVE.L 4(A1),D2 Plan 2 et 1 dans D2 
BSR MIROIR  Inversion de chaque plan 
MOVE.L D3,4(a0) Copie des plans 2 et 1 à gauche 
MOVE.1 Di, (Al) Copie des plans 4 et 3 à droite 
MOVE.1 D4,4(Al) Copie des plans 2 et 1 à droite 
LEA 8(A0),A0 16 pixels suivants 


Côté droit du bloc 


LEA -B(A1),Al 

CMPA.1 A0,Al Si A1>A0 on continue 

BHI HAUTEUR 

BNE LIGNE Si inférieur on passe à la ligne 
MOVE.L (A0),D2 Cas où Al=A0 

BSR MIROIR (Largeur de bloc impaire) 


MOVE.L D3, (A0) On réalise le miroir des plans 
MOVE.L 4(A0),D2 Mais pas de transfert à réaliser 
BSR MIROIR Car il s'agit du centre du bloc 
MOVE.L D3, 4 (A0) 

LIGNE Passage à la ligne 
LEA  160(A3),A3 
LEA  160(A4),A4 


LEA (A3) , A0 
LEA (A4), Al 
DBRA  DO0,HAUTEUR 
RTS Retour au basic 
MIROIR Sous-programme de miroir des plans 
MOVEQ #0,D6 Inversion des bits 0 à 15 
MOVEQ #15,D7 
BIT BIST D6,D2 Test du bit D6 de D2 
Bne UN 
ZERO BCLR D7,D3 Bit égal à 0 
BRA sÙ 








.1nS., 





BSET D7,D3 
ADDQ.L #1,D6 
DBRA D7,BIT 
MOVEQ #16,D6 
MOVEQ #31,D7 
BTST  D6,D2 
UNI 
D7,D3 
SUL 
BSET D7,D3 
ADDQ.L #1,D6 
SUBQ.L #1,D7 
CMPI #15,D7 
BNE  BITI 
RTS 





Bit égal à 1 
‘ 
Bit suivant 
Inversion des bits 16 à 31 


Retour du sous programme 


Miroir horizontal 


MIROIR HORIZONTAL BASS 
VOID C:ADR$(L:ADR SOURCES, L: HAUTEURY, L': LARGEUR$) 
;SANNIER Frédéric, ST MAG 90 


MOVE.L 4(SP),A0 
MOVE.L 8(SP),D0 
MOVE.L 12(SP),D1 
LEA  (A0),Al 
LEA  (A0),A2 
SUBQ.L #1,D0 
MULU  #160,D0 
ADDA.L DO, A1 
LEA  (Al),A3 
SUBQ.L #1,D1 
MOVE.L D1,D3 


MOVE.L D3,D1 
MOVE.L (A0),D5 
MOVE.L 4(A0),D6 
MOVE.L (Al), (A0)+ 
MOVE.L 4(A1), (A0) 
MOVE.L D5, (Al)+ 
MOVE.L D6, (Al)+ 


E RESOLUTION APPELE DU GFA PAR 


Adresse source du bloc haut gauche 
Hauteur du bloc 
Largeur du bloc (*16 pixels) 


Haut gauche du bloc 
Nb de ligne-1 *160 octets 


Bas gauche du bloc 
-1 pour le test dbra di 
Largeur du bloc sauvé dans d3 


Rétablit la largeur du bloc 
Transfert de 16 pixels du haut 
Vers un tampon 
Transfert de 16 pixels du bas 
+ Vers le haut 
Transfert de 16 pixels du tampon 
Vers le bas 


DBRA D1,MOT Pour toute la largeur du bloc 

LEA  160(A2),A2 Passage à la ligne 

LEA  -160(A3),A3 

LEA  (A2),A0 

LEA  (A3),Al 

CMPA.1 AQ,Al Si A1>A0 on permute 2 autres lignes 

BHI LIGNE Si Al=A0 axe de symetrie 

RTS RETOUR AU BASIC 
Décompression Degas 


MOVE. L 


MOVE. L 

MOVEQ #0,D1 
MOVEQ #0,D3 
MOVEQ #0,D4 
MOVEA.L A1l,A2 
ADDA.L  #32000, 
MOVEQ 


#0,D1 


HDECOMPACTAGE D'IMAGE DEGAS BASSE RESOLUTION APPELE DU GFA 
PAR VOID C:ADR$ (L:IM COMP$, L:IM { DECOMP$) 
4 (SP), A0 Adresse image compactée 

8(SP),A1 Adresse image décompactée 


SANNIER Frédéric 


A2 


MOVE.B  (A0)+,D1 
CMPI.B #128,D1 
BLO.S INF128 
NEG.B Dl 

FORG MOVE.B (A0), (Al)+ 
ADDQ.B  #1,D3 

FP=40 CMPI.B  #40,D3 
BEO.S EGAL40 
CMI.B #930,D3 
BEQ.S EGAL40 
CMPI.B  #120,D3 
BEQ.S EGAL40 
BRA.S PAS40 

EGAL40 
SUB.L #158,A1 

PAS40 CMPI.B  #160,D3 
BNE.S PAS160 
SUBA.L  #6,A1 
MOVEQ #0,D3 

PAS160 
ADDQ-B #1,D4 

*CMPI.B  #2,D4 
"BNE.S PAS2 
MOVEQ #0,D4 
ADDA.L  #6,Al 

PAS? 

NEXTG DBRA D1,FORG 
ADDA.L  #1,A0 
CMPA.1  A2,Al 
B10.S OCT SUIV 
RTS 

INF128 

FORGI MOVE.B  (A0)+, (Al)+ 
ADDO.B  #1,D3 

FP1=40 
CMPI.B  #40,D3 
BEQ.S EGAL40b 
CMPI.B  #80,D3 
BEQ.S EGAL40b 
CMPI.B  #120,D3 
BEQ.S EGALA40b 
BRA.S PAS40b 

EGAL40b 
SUB.L #158,A1 

PAS40b 
CMPI.B  #160,D3 
BNE.S PAS160b 
SUBA.L  #6,A1 
MOVEQ #0,D3 

PAS160b 
ADDO.B  #1,D4 
CMPI.B  #2,D4 
BNE.S PAS21 
MOVEQ #0,D4 
ADDA.L  #6,A1 

PAS21 

NEXTG1 
DERA D1,FORGI 

RETOUR 
CMPA.L  A2,Al 
BlO OCT SUIV 
RTS Retour basic 


SR © 
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L'objet de la série d'articles 
que nous entamons ici est 
audacieux : en invitant 
tous les ataristes à débuter 
dans la création musicale 
et la programmation, nous 
espérons initier les 
programmeurs 
récalcitrants aux joies des 
orifices situés sur le flanc 
gauche de leur machine 
tout en diminuant 
sensiblement le taux de 
dépressions chez les 
musiciens de synthèse. 
Chaque mois, un aspect 
différent du M.I.D.I. sera 
traité et mis en pratique 
dans de petits programmes 
proposés en basic GfA et 
Omikron. 


PRAELUDIUM 


Si les programmeurs confirmés trou- 
veront matière à réflexions son- 
nantes voire trébuchantes, nous 
avons visé la simplicité en 
employant les langages les plus cou- 
rants. Tous les programmes seront 
modulaires et dûment commentés ; 
leur collection fournira à terme une 
panoplie propre à la création de 
moult applications musicales. 


RUCS ET ASTUCES 
EN MIDI 


L'INTERFACE M.I.D.I. : UN PEU 
D'HISTOIRE 


1981 : la marque de synthétiseurs 
“Sequential Circuit” propose une 
entente sur la base de son interface, 
l'U.S.I. 

1982 : Dans le double but d'établir 
un standard de communication entre 
synthétiseurs et d’affermir le cours 
du Yen, les japonais s'y intéressent 
et créent la norme M.I.D.I. (Musical 
Instrument Digital Interface). 


Il y a donc fort à parier, même pour 
les non anglicistes, que les 2 prises 
M.1.D.I. 5 broches qui voisinent le 
port cartouche de votre ST servent à 
véhiculer de l'information numérique 
et à faire communiquer les appareils 
M.1.D.I. entre eux (voir en figure 1, 
quelques exemples de connexions). 
Disons pour le moment qu'elles 
reçoivent (Midi IN) et transmettent 
(Midi OUT) en série (“à la queue- 
leu-leu”) un train d'informations sui- 
vant un protocole précis, à la vitesse 
honorable de 31,25 Kbauds (soit 
31.250 bits par seconde). 











1°) SYSTEME BOUCLE SIMPLE 


OUT IN 


si 


IN OUT 


2°) SYSTEME NON BOUCLE EVOLUE 


OUT 1! 


IN OUT 1 
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FIGURE 1 : EXEMPLE DE CONNECTIONS D'APPAREILS M,I,D,I, 


"4 “> 


OUT2 


Se | 


INe OUT 


men De EN 





Une troisième prise (Midi Thru) se 
charge de ressortir l'information telle 
qu’elle entre par la Midi IN, sans 
traitement ni altération. Le ST 
n'étant pas pourvu de cette dernière 
à l'origine, la procédure “THRU" qui 
accompagne le programme n°1 pro- 
pose une transformation “soft” (logi- 
cielle) de la Midi OUT en Midi THRU 
(pour la THRU Hardware, consulter 
ST MAG n°6, p. 49). Une remarque : 
nous nous sommes servis des fonc- 
tions “BIOS” (Basic Output-Input 
System) prévues pour la gestion des 
ports MIDI. 


LE LANGAGE M.I.D.I. : NOTE ON 
ET NOTE OFF 


Les instruments Midi (synthétiseur, 
boîte à rythmes, guitare, batterie, 
saxophone, ordinateur... équipés de 
cette interface) communiquent entre 
eux en s'envoyant des informations de 
plusieurs types. Nous commencerons 
par les 2 ordres Midi les plus courants : 
NOTE ON et NOTE OFF (activation et 
désactivation d'une note). 





Lorsqu'une touche d'un clavier Midi 
est enfoncée, un train d'informatiort 
en 3 parties sort de sa prise Midi 
Out : un premier octet appelé “octet 
de statut” (StatusByte), suivi de 2 
octets de données. Le premier octet 
nous annonce qu'une touche du cla- 
vier vient d'être enfoncée (“Note 
On”, Valeur-144) et nous indique le 
canal MIDI sur lequel la note est 
jouée (Valeur : de 0 à 15, ce qui fait 
bien 16 canaux Midi au total). Ces 
deux renseignements sont codés 
sur un seul octet, mais comment ? 
Ils sont tout simplement additionnés 
l'un à l’autre ! Pas de panique : pour 
une note jouée sur le canal 1, le 
premier octet vaut donc 144+0=144. 
Sur le canal 2 : 144+1=145, et ainsi 
de suite jusqu'au canal 16 : 
144+15=159. 


Le second octet marque la hauteur 
de la note (Valeur : de 0 à 127), bien 
que les meilleurs claviers fassent 88 
notes quand 95% des synthés se 
jouent sur 5 octaves |! A titre de 
repère, le DO 3 (DO de la serrure) 
vaut 60 et le LA du diapason (LA 
440 Hz) vaut 69 |! Le troisième octet 
indique la vélocité, calculée par la 


FIGURE 2 : 


vitesse de frappe sur la touche 
(Valeur : de 0 à 127). 

La figure 2 nous décortique ce “train 
d'information”. Il faut ici clarifier les 
bases numériques employées : la 
valeur d'un “NOTE ON” sur le canal 
MIDI 1 peut se lire (voir la figure 2) en 
binaire (1001 0000), en décimal (144) 
ou en hexadécimal (&H90). Les 
octets de statut (en tête de tous les 
trains d’information Midi) seront 
désormais exprimés ici en hexadéci- 
mal et précédés du symbole “&H”, les 
valeurs des octets de données (hau- 
teur, vélocité...) restant en décimal. 


MIDI A 14 HEURES ! 


La philosophie du système MIDI 
repose sur une structure résolument 
ouverte. Depuis la parution de la 
“Midi Specification 1.0”, la liste des 
ordres MIDI n’a cessée de s'étoffer, 
chaque constructeur appuyant ses 
innovations techniques par l’ajout, 
notamment, de nouveaux contrô- 
leurs MIDI. Notre première préoccu- 
pation sera de vérifier quels ordres 
votre machine peut comprendre et 
transmettre : son “Implémentation 
Midi”. La richesse du code Midi nous 


TRAIN D'INFORMATION MIDI 


1°) ON APPUIE SUR LA NOTE "DO 3" DE SON SYNTHETISEUR : 


1°) OCTET DE STATUT  OCTET DE DONHEES 


OCTET DE DONNEES 


“shoes rele 88111180 | g. 1541410174 
rene r 


SOIT EN BINAIRE: ER 
SOIT EN HEXADEC: vo 

SOIT EN DECIMAL: 144+ 

SOIT EN CLAIR: NOTEON, CANAL 1 


88111100 


DECIMAL=60 
HAUTEUR=DOS 


au 


DECIMAL=127 
VELOCITE=127 





FIGURE 3 : UN SEUL "NOTE ON" SERVANT À ANHONCER PLUSIEURS HOTES : 
HAUTEUR ET VELOCITE SUFFISENT À DÉCRIRE LES NOTES (VELOCITE=B:NOTE OFF) 
ICI ON APPUYE SUR DO3(68) ET RE3(62) PUIS ON RELACHE LES 2 NOTES , 


Octet de statut Octet de données Octet de données 


DEBUT DU 
TRAIN ---> 


NOTE ON 


1881 ALL LETERNT DSL LOL A L 
RE ière NOTE 1ère NOTE 


; CANAL 1 


HAUTEUR=68 VELOCITE=127 


Dctet de données Octet de données Octet de données Octet de données 


BB111118B11111118B80111100800000008 
2ème NOTE 2ème NOTE ière NOTE 1ère NOTE 


HAUTEUR=62 


VELOCITE=127 


HAUTEUR=68  VELO=0->NOTE OFF 


Octet de données Octet de données 


2ème NOTE 
HAUTEUR=62 


B8111118800806688088 


2ème NOTE 
VELO=8->HNOTE OFF 


FIN DU 
<--- TRAIN 
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permet en outre d'exprimer la même 
chose de plusieurs façons : c'est le 
cas de l'ordre “NOTE OFF”. 


Comme pour “NOTE ON’, il s'agit 
d’une information en trois parties. 
Mais suivant le dialecte du synthé 
incriminé, le relâchement d'une note 
sur le canal 1 se dira “&H90 HAU- 
TEUR 0” (une Note On avec Véloci- 
té O0 correspond à une Note Off) ou 
“&H80 HAUTEUR VELOCITE", étant 
entendu que le musicien relâche la 
note selon la VELOCITE de son 
humeur, de O0 à 127 (voir figure 3). 
Pire ! Suivant la façon dont un 
accord sera joué sur le clavier, 
l'octet de statut “NOTE ON CANAL 
” (&H90) figurera ou non devant la 
hauteur et la vélocité de chaque 
note |! (voir figure 3). 
Le Midi envoie de surcroît toutes les 
0,3 secondes un code pour tester si 
les connexions restent établies : 
l'Active Sensing, véritable mouche 
du coche qu'on visera à museler 
pour l'heure. On peut s'assurer des 
particularités de son propre synthé 
avec le programme n°1, “Etat des 
Lieux”. Mais avant de commencer, 
on peut réfléchir sur 3 choses : 
l'implémentation Midi du synthéti- 
seur (codes Midi reconnus par sa 
machine) ; la configuration de 
l'appareil (filtrage des codes reçus 
ou transmis) ; le routage de ses 
connexions Midi (place de chaque 
appareil dans la chaîne...). 


Pour l'heure, une simple connexion 
OUT SYNTHE <-> IN ATARI suffit : 
jouer quelques notes ou manipuler 
un contrôleur en visualisant les 
codes produits sur l'écran vaut 
mieux qu'un long discours. Cette 
étape est nécessaire pour se faire 
une idée de la structure des codes 
MIDI. D'autre part, vous trouverez 
dans l’encadré ci-après une premiè- 
re liste des principaux codes MIDI 
que vous risquez de retrouver à 
l'écran, et qui sont répartis en deux 
grandes catégories : les Messages 
Canaux et les Messages Système, 
cette dernière ‘étant divisée en deux 
sous-catégories, les Messages 
Communs et les Messages Exclu- 
sifs. Cette liste n'est pour le moment 
qu'indicative et non commentée, et 
nous verrons au fur et à mesure de 
nos mini-développements le détail 
de toutes les commandes du Midi. 




































































1. Les “Channel Messages” 


a) Les commandes : 
&H 90 + CANAL, NOTE, VELOCITE 
&H 80 + CANAL, NOTE, VELOCITE 
ou &H 90 + CANAL, NOTE, 0 
&H A0 + CANAL, NOTE, VALEUR 
&H CO + CANAL, N°----SON 
&H DO + CANAL, VALEUR 
&H E0 + CANAL, 0, AMPLITUDE 


POLYPHONIC AFTERTOUCH 
PROGRAM CHANGE 
CHANNEL AFTERTOUCH 
PITCH BEND 


b) Les contrôleurs : 
Tous les contrôleurs sont du format : 
&H BO + CANAL, N° CONTROLEUR, VALEUR 
Les valeurs respectives de ces trois octets varient entre : 
176+(0 à 15), O0 à 127, 0 à 127 


Suivent les numéros et les noms des contrôleurs les plus connus : 


1. Modulation Wheel 65. Portamento 
2. Breath Controller 66. Sustenuto 

3. Foot Pedal 67. Soft Pedal 

4, Foot Controller 92. Tremolo 

5. Portamento Time 93. Chorus 

6. Data Entry 94. Celeste 

7. Main Volume 95. Phaser 

10. Pan 96. Data Increase 


11. Expression 97. Data Decrease 


64. Hold Sustain 


et les “Messages Mode”, inclus dans les Contrôleurs: 


122. Local Mode 125. Omni On 
123. All Notes Off 126. Poly Off 
124. Omni Off 127. Poly On 


2. Les “System Messages” 


a) Les “Messages Communs” : 
&H F2. Song Position &H FB. Cont 
&H F3. Song Selection  &H FC. Stop 
&H F6. Tune Request &H FE. Active Sensing 
&H F8. Clock &H FF. System Reset 
&H FA. Start 


b) Les Exclusifs : 
&H F0. SYSTEM EXCLUSIVE 
&H F7. SYSTEM END 








PROGRAMME n° 1,"”ETAT des lieux” 


\ Affichage de la Midi In et procedure Midi Thru. 
\ par Stéphane Buendia, Mai 90. 


REPEAT 
IF INP?(3) 
octet=INP (3) 
OUT 3,octet 


IScrute le port Midi In 
tAttrappe un.octet Midi 
Le sort par le port Midi Out 


octet=octet AND &HFF INe garde que ses 8 bits bas 


IF octet<>£RFE 'Retire l'active sensing 
IF (octet AND 6H80) !Si octet>=6H80, alors statut 
Saute une ligne pour indiquer 
Il'apparition d'un ordre 
Affichage de l'octet 

















CONCLUSION 


Un coup d'oeil rassure sur la com- 
plexité du protocole MIDI : mis à 
part quelques spécimens tordus qui 
seront l’objet d'un prochain article 
(du style du Pitch Bend par 
exemple), l'important à retenir 
aujourd'hui est que les messages se 
présentent sur 3 octets (Code + 
Canal, Valeur, Valeur) et se répartis- 
sent en deux grandes familles : les 
“Channel messages” et “System 
messages”. 


Voilà donc une bonne façon de 
redécouvrir son synthétiseur : explo- 
rer ses fonctions en visualisant ses 
transmissions. Si vous tombez sur 
des commandes ou des contrôleurs 
MIDI non répertoriés sur la liste, 
notez-les : ils sont propres à votre 
appareil et vous serviront à construi- 
re un éditeur ou à envoyer des mes- 
sages de configuration (surveiller 
notamment les Contrôleurs n°96 à 
121). Un coup d'oeil sur le manuel 
du synthé, à la page “Implementa- 
tion MID/”, ne fera pas de mal non 
plus. Les choses sérieuses com- 
mencent le mois prochain | 


< Stéphane Buendia œ 





Ad libitum... 


ILa Midi Thru retransmet ce 
lqui arrive de la Midi In : 
Si un octet arrive, 
lil est capturé puis 
linmédiatement sorti. 





een 








PROGRAMME N° 2,"Monitoring midi” 





































\ Pour vos réceptions Midi guindées. 

\ Affichage sur invitation uniquement. 
* par Stephane Buendia,Mai 90. 

\ 





form$="####" 
DIM notes (60) 
RESTORE notes 
FOR i=1 TO 12 
| READ noteS{i) 
NEXT i 
DIM controls (120) 
RESTORE controls1 
FOR i=1 TO 11 
READ control$(i) 
INEXT ji 
coup de balai 





IF INP?(3) Si un octet est présent 


IF drapeau Drapeau en position 
fentrez lAttrape l’octet 
ENDIF 


canal={(x AND &HF)+1 

command=x AND 6HF0 

IF command=£490 
GOSUB entrez 
hauteur=x 


\ 


REPEAT 


[Canal = quartet bas 
Commande = quartet haut 
Si note on 

(On attrape le suivant 
!{1a hauteur de la note) 





GOSUB entrez Le prochain octet = vélocité 

velocite=x 

IF velocite=0 Note On avec vélocité zéro 
PRINT "OFF", 1= Note Off 

ELSE 
PRINT ‘ON \, 

ENDIF 

fjustif (canal) Affichage note, canal, 


hauteur et vélocité, 
@affiche notes 


@justif (velocite) 

PRINT 

GOSUB entrez Le “running status” change ? 
hauteur=x lOui = nouvel octet de statut 
drapeau=0 INous n'attraperons que des 


‘hauteurs et des vélocités. 
Inouvel octet de statut > sort 


command=x AND &HF0 
UNTIL command>=6480 
ELSE 
drapeau=1 
IF command=6H80 
GOSUB entrez 
hauteur=x 
GOSUB entrez 
velocite=x 
PRINT “OFF”, 
@justif (canal) 
affiche notes 
@justif (velocite) 
PRINT 
ENDIF 


16H80 : Note Off certifiée. 





Programmer Midi as 


IF command=6HB0 
GOSUB entrez 
numero=x 
GOSUB entrez 
valeur=x 
affichage des controleurs 
ENDIF 
\ 
ENDIF 
ENDIF 
UNTIL LEN(INKEYS) 
END 
PROCEDURE coup de balai 
WAILE INP?(3) 


WEND 
RETURN 
' 
PROCEDURE entrez 
REPEAT 
x=INP (3) 
UNTIL xGHFE 
RETURN 
1 
PROCEDURE affiche notes 
PRINT USING ‘&”,note$ ((hauteur MOD 12)+1) ; ! (hauteur \12) -2 
Rjustif((hauteur\12)-2) 
RETURN 
L 
PROCEDURE justif(n) 
PRINT USING “##H#/”,n; 
PRINT , 
RETURN 
t 
PROCEDURE affichage des controleurs 
PRINT ‘CTR’, INous ne proposons ici que la 
@justif (canal) liste des 12 premiers 
num$=control$ (numero) contrôleurs, à vous d'ajouter 
IF numero>0 AND numero<13 !ceux qui vous intéressent 
PRINT USING ‘€",num$+" ais 
@justif (valeur) 
ENDIF 
IF numero>12 
\ @justif (numero) 
PRINT USING ‘####",numero; 
PRINT * ne 
\ PRINT valeur 
@justif (valeur) 


On comparera sans polémiquer 
{la concision d'un “print 
lusing” en GfA et en Omikron 


Affichage par défaut 


Voici la liste des 11 premiers contrôleurs : 
controls1: É 
DATA MOD WHEEL, BREATH CTRL, FOOT PEDAL, FOOT CTRL, PORTA TIME 
DATA DATA ENTRY,MAIN VOL, 8,9, PAN, EXPRESSION 


\ 


notes: Irespectez les espaces S.V.P. 
DATA DO ,DO#,RE ,MIb,MI ,FA ,FA#,SOL, LAb, LA ,SIb, SI 
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Les lois du hasard, la 
chance, le bol, la baraka... 
Pour vous et moi, la notion 
de chance est quelque 
chose d’assez élastique. 
Pour les matheux (et donc 
pour les ordinateurs à la 
logique inflexible), ces 
notions ne sont que le voile 
flou d’une branche 
rigoureuse et très utile des 
maths, les probabilités. 
L'application à la 
programmation est 
évidente : le besoin de 
simuler l’aléatoire est 
partout en informatique, 
depuis le simulateur de vol 
ou de cité aux images 
fractales, en passant par 
les jeux, bien sûr. Un peu 
perdu ? Pas de panique, 
suivez votre guide, Billy T. 


RIONS UN PEU 


Vous souvenez-vous de ce débat 
télévisé qui suivit la dernière rediffu- 
sion du film de SF “Météore” ? Un 
scientifique y affirmait que les 
chances pour que la terre soit heur- 
tée par une météorite géante étaient 
de une tous les dix mille ans et que 
cela faisait bien 30 ou 40 000 ans 
que cela n'était plus arrivé. Réaction 
du journaliste : “Alors, les chances 
augmentent tous les jours 7"... 
Silence gêné du savant (ou était-ce 
un fou-rire?). 


LE COIN PROPRE 





A BILLY 


Autres exemples : des journaux en 
vente libre affirment qu'il faut jouer 
le numéro N du loto “car il n'est pas 
tombé depuis longtemps”. Tel 
homme, père de cinq filles, se 
réjouit de savoir sa femme de nou- 
veau enceinte, car ce coup-ci, “il y a 
forcément plus de chances que ce 
soit un garçon”. 


Faux. Faux, faux, et faux. Raisonner 
comme ça, c'est se laisser embobi- 
ner par les marchands de martin- 
gales ou bien s’exposer à de 
cruelles désillusions. Certains culti- 
vent cet art du mensonge subtil basé 
sur l'ignorance des consommateurs 
et s’en font leurs choux gras. Quand 
j'en aurais fini avec votre culture pro- 
babiliste, mes p'tits gars, vous ne 
serez plus victimes de ce genre 
d'escroqueries (Oui, Tontooon!). 


ET LA PROGRAMMATION ? 


Puisqu'ici, la programmation est le 
sport national, prenons un exemple 
concret. Vous êtes en train de débo- 
guer le jeu d'arcade de l’année, 
musique somptueuse, graphismes 
raffinés, prix raisonnable. Vous tes- 
tez donc votre merveille. Une horde 
de 18 aliens envahit l’affichage 3D, 
vous allez vous en débarasser, 
quand soudain, horreur ! Un des 
monstres est apparu hors de l'écran ! 
Tout plante ! Bien sûr, vous utilisez 
la fonction 17 du XBios, qui suffit 
bien à vos besoin, pensez-vous. 
Erreur : cette fonction (un généra- 
teur de nombres aléatoires, ou 
GNA) vient de retourner une série 
de valeurs qui ont entraîné l'activa- 
tion d'un bug de votre programme. 
Or, votre GNA ne peut être utilisé 
pour fournir une deuxième fois la 
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même série de valeurs : il renvoie 
systématiquement une série diffé- 
rente après chaque allumage. 
Impossible de l'employer pour un 
déboguage fiable. Chaque appel à 
la fonction GNA fournit certes un 
résultat imprévisible (ce qui est la 
définition d’un GNA). Mais trop 
d'imprévu nuit. 


Bref, on voit qu'un bon GNA doit 
fournir des résultats reproductibles : 
il faut pouvoir lui faire cracher la 
même série de valeurs dans les 
mêmes conditions pour pouvoir 
reproduire les mêmes événements. 


Il doit aussi être doté d'une longue 
période. On appelle période d'un GNA 
le nombre d'appels successifs avant 
que ne réapparaisse la même valeur. 


Le GNA que nous vous présentons 
dans ce volet d'introduction obéit à 
ces deux conditions (entre autres). 
Sa période est de 2 milliards et 
quelques, et il est parfaitement 
reproductible. Son petit nom est 
“générateur de Lehmer”, du nom de 
l'inventeur de l'algorithme. Nous 
vous présenterons cet algorithme et 
détaillerons les notions abordées ici 
dans le prochain volet, car ce mois- 
ci, il fait trop chaud pour se serrer la 
tête, pas vrai? 


EXEMPLE D'APPLICATION 


Vous trouverez dans ce numéro le 
listing d’un programme en C nommé 
DALEKS (d'après la série “Doctor 
Who” de la BBC). Il provient à l'origi- 
ne des gros ordinateurs dotés de 
terminaux, et le portage original sur 
ST a été effectué par Randy Eich- 
man. C'est en raison de son origine 


qu'il utilise seulement des affichages 
caractères (en revanche, cela le 
rend plus facile à porter sur une 
autre machine et à comprendre). 


En guise de GNA, Daleks utilise un 
générateur de Lehmer très connu, 
qui a l’avantage d'être bien testé. La 
façon dont il est implémenté lui per- 
met d'éviter les erreurs de dépasse- 
ment de capacité arithmétique en 
calcul sur des entiers long (32 bits). 


Pour l'utiliser, facile : on l'initialise, 
puis, à chaque appel, le géné ren- 
verra une valeur “aléatoire”. Pour 
l'initialiser, deux façons : le mode 
normal et le mode débug. En mode 
normal, on passe comme argument 
une valeur négative, et le géné utili- 
sera l'horloge temps réel du ST 
comme “semence”, ou valeur initiale 
du géné. Par définition, celle-ci 
change sans arrêt et très vite. Deux 
lancements du programme devraient 
donc fournir deux valeurs différentes 
de l'horloge, donc de la semence. 
En mode débug, on passe comme 
argument la valeur (positive) de la 
semence. Cela permet de reproduire 
la même séquence de chiffre. 
Chaque valeur positive de la semen- 
ce “lance” le géné sur une séquence 
de chiffres longue de 2 milliards. Si 
vous faites 2 milliards d'appels, le 
départ de la séquence réapparaît. 
Mais il faut être patient. Enfin, pour 
récupérer une valeur aléatoire, pas- 
ser OL comme argument. En résumé : 


float Randmi(n) 
long 1 


esin > OL : n devient la nouvelle 
semence du géné; 

e si n < OL : utiliser l'horloge comme 
nouvelle valeur de la semence: 

e sin = OL : Randm!{) retourne une 
valeur réelle entre 0 (exclu) et 1 (exclu). 


MODE D'EMPLOI DU 
PROGRAMME DALEKS 


Daleks est un jeu simple de straté- 
gie et de chance, dans lequel vous 
tentez d'échapper à des hordes de 
robots malfaisants mais stupides 
appelés DALEKS. Ceux-ci n'ont 
qu'un but, vous détruire. Heureuse- 
ment, ils ne sont pas armés et cher- 
chent “seulement” à vous attraper 
pour vous réduire en bouillie. Dans 


leur impatience, ils entrent en colli- 
sion les uns avec les autres et vous 
fournissent ainsi de l’aide et des 
points. Plus longtemps vous leur 
échapperez, plus vous aurez de 
points. Les 10 meilleurs scores sont 
sauvegardés sur disque. 


Le nom Daleks vient de l'émission 
de la BBC “Doctor Who” qui compte 
de nombreux fans y compris aux US 
où ce jeu existe en domaine public 
pour de nombreuses machines, y 
compris des “gros” utilisant des ter- 
minaux. 


Vous :5$ 
Dalek : à 
Débris : æ 
COMMANDES CLAVIER 


1-9 : Mouvements (pavé numérique) 
(C)ouleurs : bascule les couleurs 
(Instructions : affiche ces instruc- 
tions 

(Laisse faire : avance automatique 
des robots 
(S)onique 
sonique 
(Téléportation : téléporte le joueur à 
un endroit au hasard 

e(X)it : fin de la partie; vous pouvez 
recommencer ou quitter le jeu. 


: utilise le casse-robot 


DESCRIPTION DES 
COMMANDES 


Mouvements : Pressez les touches 1- 
9 du pavé numérique pour vous 
déplacer dans l'une des 8 directions 
par rapport au “5” central. Ainsi, “1” = 
bas gauche, “2” = bas, “3” = bas droi- 
te, “4” = gauche, etc. Le “5” vous per- 
met de rester immobile (et de passer 
votre tour). Après que vous ayez joué, 
les robots se déplacent à leur tour et 
convergent vers vous. Les mouve- 
ments sont d'une case à la fois. 


Couleur : Pressez “C” pour changer 
les couleurs. Ceci marche en 
moyenne résolution (couleur) et en 
haute (monochrome). 


Instructions : Pressez “|” pour voir 
les instructions à tout moment 
durant la partie. La partie en cours 
continue ensuite. 


Laisse faire : Pressez “L” pour lais- 
ser les robots avancer automatique- 
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ment vers vous (comme si vous 
pressiez “5” en permanence). Ceci 
dure jusqu'à ce que vous ou tous les 
robots soient morts. A éviter sauf si 
vous êtes suicidaire, ou si vous êtes 
abrité derrière un débris qui anéanti- 
ra tout dalek qui approcherait. 


Sonique : Pressez “S" pour tirer une 
charge de casse-robot sonique, ce 
qui détruira tous les robots sur les 8 
cases adjacentes à la vôtre. Cela 
consomme une charge. Vous 
gagnez une nouvelle charge au 
début de chaque tour. Les daleks 
détruits par sonique ne laissent pas 
de débris. Les robots se déplacent 
après que vous ayez tiré un 
sonique. La ligne d'état, en haut de 
l'écran, vous indique en permanen- 
ce combien de charge il vous reste. 


Téléportation : Pressez “T” pour 
activer votre téléporteur vers une 
case sans robot dessus ou autour 
(si possible). Une téléportation 
consomme une unité d'énergie. Les 
daleks se déplacent après usage du 
téléporteur. Vous gagnez une unité 
d'énergie au début de chaque tour 
et également lorsque vous passez 
sur un débris (que vous convertis- 
sez en énergie grâce à votre géné- 
rateur à fusion portatif). La ligne 
d'état en haut de l’écran indique en 
permanence combien d'énergie il 
vous reste. 


Exit : Pressez “X" pour mettre fin à 
la partie. Le programme vous 
demandera si vous voulez rejouer 
ou quitter le jeu. 


COMMENT JOUER 


1. Le jeu est divisé en tours. Vous 
commencez au tour 1 avec 5 unités 
d'énergie et une charge sonique. 
Vous vous déplacez le premier. Puis 
chacun des robots (ou daleks) se 
déplace. Les daleks avancent droit 
sur vous et il vous est recommandé 
d'utiliser ce comportement stupide 
pour les faire se heurter mutuelle- 
ment. Quand deux daleks ou plus 
entrent en collision, leurs généra- 
teurs nucléaires se fissurent et les 
carcasses des daleks se changent 
en un tas de débris mortel pour tout 
robot qui le heurterait. Vous gagnez 
un point par robot détruit par colli- 
sion ou par casse-robot sonique. 



























































S'abonner à ST Magazine ne relève plus de l'hérésie. 
Vous trouverez d'ailleurs ci-dessous notre nouveau 
bulletin d'abonnement, qui vous permet de profiter 
d'un tarif avantageux, et d'être tranquille pendant 
un an, votre magazine préféré arrivant tout droit 
dans votre boîte aux lettres. 




















NB : les abonnements en cours sont inchangés. Les tarifs pré- 
cédents ne sont plus valables à la parution de ce numéro. 


Bulletin d'abonnement à retourner à : 
Pressimage - Abonnement ST Mag 


19, rue Hégésippe Moreau 
75018 PARIS 


Je m'abonne à partir du numéro …, pour un an (11 numé- 
ros) à : 
+ ST Magazine seul. 
Pour ne pas manquer un seul numéro, et être ainsi au cou- 
rant de toute l'actualité du ST. 
Q France métropolitaine : 
Q Europe : 
Q Monde : 


225 Frances 
290 Francs 
330 Francs 


= ST Magazine + disquette 

Pour recevoir en plus la disquette du magazine, qui 
contient tous les listings publiés, ce qui évite de les taper. 
Les GfA Punchs obéissent à la règle. En prime, un coffret 


ou une reliure pour ranger les numéros de ST Magazine. 


Q la reliure 

625 Francs 
690 Francs 
730 Francs 


Je choisis : © le coffret 
Q France métropolitaine : 
Q Europe : 
Q Monde : 


QCCP Q Mandat 
4 Pour l'étranger, voyez les pages boutique + 


Règlement : 1 Chèque Bancaire 


Signature (des parents pour les mineurs) : 





2. Vous pouvez être tué de deux manières: en étant rattrap- 
pé par un dalek, ou en vous téléportant vers une case où un 
dalek adjacent peut aller (très rare mais pas impossible). 


3. Vous pouvez vous débarasser des daleks de 3 
façons. La première (et la meilleure) façon est de les 
amener par des déplacements judicieux à se heurter 
mutuellement, laissant une pile de débris derrière 
laquelle vous pouvez vous abriter, ou que vous pouvez 
absorber. La deuxième est d'utiliser votre casse-robot 
sonique (mais les robots ne laissent pas de débris). La 
troisième est d'amener un dalek à heurter un débris. 


4. Quand tous les daleks ont été éliminés, vous avancez 
au tour suivant, et vous gagnez une charge sonique et 
une unité d'énergie pour votre téléporteur. Ah oui, et aussi 
de nouveaux daleks furieux, 5 de plus à chaque tour. 


5. Gagner des points est très simple: vous gagnez un 
point par robot détruit. Si votre score est supérieur à 10 
lorsque vous serez finalement tué (hé hé hé...) et si vous 
battez un des dix meilleurs scores, votre score sera enre- 
gistré sur disque avec votre nom. N'oubliez pas d'ôter la 
protection en écriture de la disquette. 


STRATEGIE 


L'idée-force du jeu est de faire se heurter de nombreux 
daleks pour qu'ils laissent des piles de débris puis de 
vous abriter derrière. Pressez alors la touche “5” pour 
rester immobile tandis que les daleks avancent droit 
dans les débris, les sots. Quand plusieurs débris se sont 
formés, vous pouvez aller dansces débris pour les 
absorber et stocker de l'énergie pour votre téléporteur. 
Après quoi vous pouvez vous téléporter pour échapper 
aux daleks les plus proches. Quand deux daleks se rap- 
prochent et vont former un débris, tenter de vous en 
rapprocher pour pouvoir absorber le débris. Plusieurs 
débris rapprochéspermettent de s’abriter de daleks 
venant de directions différentes. 


NOTES 


Daleks a été écrit en Mark Williams C. On ne compte plus 
les versions du domaine public pour différentes machines. 
Celle-ci a été écrite par Randy L. Eichman puis téléchar- 
gée sur les serveurs Compuserve et GEnie aux USA. 
Nous avons procédé au débogage et au nettoyage du 
source, mais ce jeu est très améliorable et assez prenant 
pour une courte partie entre deux compilations. 


Daleks a besoin d'un fichier d'instructions (n'importe 
quel texte suffit à condition qu'il soit terminé par au 
moins un caractère de code nul) de 10K de long au 
maximum. Le fichier d'instructions que j'ai fait est fourni 
en exemple. 


BILLY T. 
alias Frédéric Mora. 
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ARR RER RARE EEK | 
f* Daleks pour ST - F. Mora - Juin 1990 - Mark Williams C */ 
J# N'utilise que des caractère et est donc portable sur tout système. */ 
AR RAR ARIANE RIRE RIRE NE / 
include <stdio.h> 

Hinclude ‘osbind.h” 
Hinclude ‘linea.h” 

Hinclude <time.h> 

Hdefine CONST À 168071: 
Hdefine CONST M 2147483647L 
Hdefine CONST Q 1277731 
Hdefine CONST R 28361 


/* Définitions pour la fonctions Randm{) */ 


Hdefine TRUE 1 [* Quelques définitions utiles */ 
Hdefine FALSE 0 
Hdefine WEO 251 /* Représente joueur dans le tableau */. 
define DEBRIS 252 /* Représente débris dans le tableau */ 
Hdefine VIDE 0 

fdefine OK 0 
define NOUVOTOUR 1 
define MORT 2 

Hdefine CJOUEUR 235 /* Caractère indiquant le joueur. */ 
fdefine  CROBOT 232 /* ...celui des robots... */ 
define CDEBRIS 145 /* ...et des débris */ 
Hdefine NMAXROB 99 /* Nbre max de robots sur l'écran +/ 
Hdefine _TLPCONSO 1 /* Energie consommée par une téléportation #/ 
Hdefine  ENERGO 5XTLPCONSO /* Energie au début de la partie */ 
Hdefine TAILLEINFO  7500L /* Tampon contenant les instructions */ 
define BLACK Cconws (“\33b0/) /* Définitions couleurs VT-52 */ 
Hdefine RED Cconws ("\33b1") 

fdefine BLUE Cconws (blue) 

fine GREEN Cconws ("\33b3") 

define CLRHM Cconws ("\33E”) /* CcleartHome */ 
define  CURSON Cconws ("\33e”) /* Cursor on */ 
fine CURSOFF Cconws ("\33£") /* Cursor off */ 
fdefine REVERSVID Cconws ("\33p") /* Reverse video */ 

Hdefine NORMALVID  Cconws("\33q") /* Fin reverse */ 


Char fnama{] = ‘hiscore.dlk”; 
Char blank[13] = * 

Char *blue = “\33b2\0”: 

char *ecrtitre; 

Ent score = 0,tour = 1,sonics = 1; 
änt coul 0,coul 1,coul 2,coul 3; 


/* Variables globales */ 
“:/* Pour effacer un nom dans les scores*/ 


Ant quit = 0; 

änt x robot [NMAXROB]; /* Coord. x de chaque robot */ 

änt y robot [NMAXROB]; /* Coord. x de chaque robot */ 

int ecran(39] [22]: [* Tableau de l'aire de jeu */ 

int robots; /* Nbre de robots restant */ 

int nrobs; /* Nbre de robots au début d’un nouveau tour */ 
int x who,y who; [* Coords x, y du joueur */ 


int handle, nbrnoms = 0,skores[10]; 
Char noms[10][13],nbrlignes; 
Long octets; 
int energie = ENERGO; 
int toggle = 1,rez = -l; 
int crash[] = { 
0x0, 0x100, 0x200, 0x300, Ox400, 0x500, Ox600, Ox7FF, Ox800, 0x900, 
O0xA00, OxB00, OxC00, OxD00, 0x20, 0x103, Ox61F, 0x736, OxRAO, OxCOF, 
OxD00, 0x810, OxFF00 
D. /* sons Dosound{} */ 
int kaput[] = { 
0x52, 0x103, Ox2A9, O0x301, Ox4D4, 0x500, Ox600, Ox7F8, Ox810, 0x910, 
OxA10, OxB90, OxC1A, OxD00, OxE8, Ox103, Ox2F4, Ox301, Ox4FA, 0x738, 


/* Energie du joueur */ 


Daleks 


0x810, 0x910, OxA10, OxB40, OxCIF, OxD00, OxFFIE, Ox7A, Ox103, Ox2ED, 
Ox301, Ox4DE, OxD00, OxFF06, Ox52, Ox103, Ox2A9, Ox301, Ox4D4, OxD00, 
OxFF14, OxE8, Ox103, Ox2F4, Ox301, Ox4FA, OxD00, OxFF00 
}'i 
int sonik{] = { 
0x0, Ox100, 0x200, 0x300, 0x400, Ox500, Ox600, Ox7FF, Ox810, 0x910, 
OxA00, OxBF4, OxC01, OxDOF, 0x0, Ox103, Ox2BE, Ox73C, OxB10, Ox910, 
OxBF4, OxC01, OxDOA, OxFF14, Ox800, Ox900, OxFF00 
}; 
int telepl[] = { 
0x32, 0x100, Ox2C8, 0x300, Ox400, 0x500, Ox600, Ox7FC, Ox810, 0x910, 
OxA00, OxB10, OxC27, OxD00, Ox101, Ox2C8, Ox301, Ox73C, OxB0C, 0x909, 
0x8000, Ox8100, Ox19FA, Ox800, 0x900, OxFFO0 
je 
int telep2[] = { 
0x32, Ox100, Ox2C8, 0x300, Ox400, Ox500, Ox600, Ox7FC, 0x810, Ox910, 
0xA00, OxB10, OxC27, OxD00, Ox101, Ox2C8, Ox301, Ox73C, Ox80C, Ox909, 
Ox80FA, 0x8100, OxE700, Ox800, 0x900, OxFFO0 
}; 
main () 
{ 
char ch; 
float Randm{); 
init (); 
CLRHM; 
cursxy(17, 12); 
Randnm (-1L) ; /* Initialise le géné avec l'horloge */ 
Cconws (‘Voulez-vous les instructions? (o/n)“); 
ch = Crawcin(); 
if ((ch= ‘o') || (ch = ‘0'}) 
instruct (); 
nouvel ecran (); 
lit scores (); 
graph scores (); 
affiche scores); 
cursxy(22, 22); 
GREEN; : 
Cconws (‘Frappez une touche pour continuer. ."}; 
Crawcin(); ; 
nouvel ecran () ; 
do 
{ 
protagonistes () ; 
aff protag(); 
bouclejeu () ; 
} 
while (quit — FALSE); 


/* Définit résol. et couleurs */ 


/* Efface écran, dessine bords et en-têtes */ 
/* Lit les meilleurs scores */ 

/* Affiche “graphiques” des meilleurs scores */ 
/* et affiche les chiffres des scores */ 


/* Aire de jeu = joueur et tour*5 robots */ 
/* Affiche robots et joueur */ 


restaure () ; 
exit (0); 
} 
init () 
{ 
long t = 3500001; /* Temporisation */ 
if (rez < 0) /* Seulement si ler appel à La fonction */ 


{ 
coul 0 = Setcolor(0, -1);/* Sauvegarde anciennes couleurs */ 
coul 1 = Setcolor(l, -l); 
coul 2 = Setcolor(2, -1); 
coul 3 = Setcolor(3, -1); 


Linea (); 
hidemouse () ; /* Cache souris */ 
CURSOFF ; /* Cache curseur */ 
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rez = Getrez{(); 
if (rez = 2) 
{ 

Setcolor(0, 0x000); /* Couleur 0 = noir */ 

Setcolor(1, 0x777); /* 1 = Blanc */ 

Setcolor(2, 0x777); /* 2 = Blanc */ 

Setcolor(3, 0x777): /* 3 = Blanc */ 

blue = “\33b1\0"; /* Bleu devient la couleur 1 */ 
} 
else  /* Sinon établit couleurs moyenne rez. */ 
{ 

Setcolor(0, 0x000); /* Couleur 0 = noir */ 

Setcolor(1, 0x700); /* Rouge */ 

Setcolor(2, 0x047); /* Bleu */ 

Setcolor(3, 0x060); /* Vert */ 
} 
if (rèz = 0) /* Si basse rez. demande de changer la résolution */ 
{ 

CLREM; 

BLUE; 

cursxy(6, 10); 

Cconws (“Daleks ne marche qu'en”); 

cursxy(7, 12); 

Cconws (‘moyenne ou haute résolution”); 

while (t > 0) /* Temporisation (très laid) */ 

+: 
restaure () ; 
exit (1) ; 


/* Si haute résolution */ 






















































} 
instruct () 
{ 
int x = 0,nbrlign = 0; 
static char info[TAILLEINFO+2]; 


char ch=1; 

int pagel = 0; /* Flag lère page */ 

if (info[0] = 0) /* Si instructions pas chargées, les lire */ 
{ 


handle = Fopen("‘info.dlk”, 0); 
Fread(handle, TAILLEINFO, info); 
Fclose (handle) ; 


BLUE; 
while ((ch = info[x]) != 0)/* Afficher caractères jusqu'à un ‘\0' */ 
{ 
Cconout (ch) ; 
+Hx; 
if (ch = ‘\n') 
{ 
#Hnbrlign; 
if (nbrlign >= 21) 
{ 
if (pagel = 0) 
{ 
pagel = 1; 
cursxy(69, 14); 
REVERSVID; 
Cconout (CJOUEUR) ; /* Note de F. Mora : cette */ 
NORMALVID ; /* méthode d'affichage des */ 
_cursxy(69, 16); /* symboles est horrible, */ 


[* Compte les \n, pause toutes les 21 lignes */ 


/* Si lère page, affiche les symboles */ 





























RED; /* mais elle marche, alors */ 
Cconout (CROBOT); /* je la laissé (et tout le */ 
cursxy(69, 18); /* sourcè original était du */° 
GREEN; [* même tonneau!) */ 
Cconout (CDEBRIS) ; 
} 
nbrlign = 0; 
cursxy(20, 24); 
GREEN; 
Cconws("X pour sortir, autre touche pour suite”); 
ch = Crawcin(); 
if ((h= ‘x') || (ch = X')) 
return ; 
CLREM; 
BLUE; 
} 
} 
} 
cursxy(15, 24); 
GREEN; 


Cconws (‘Frapez une touche pour continuer (dernière page) ”); 
cin(); 
} 
nouvel _ecran() 
{ 
int ligne; 
CLREM; /* Efface l'écran, affiche ligne d'état */ 
GREEN; 
Cconws ("Score :") ; 
cursxy(23, 0); 
Cconws (“Tour:"); 
cursxy(40, 0}; 
Cconws ("Sonics:"); 
cursxy(54, 0); 
Cconws ("Energie:") ; 
GREEN; /* Affiche valeurs courants dans ligne d'état */ 
cursxy(7, 0); 
print (score) ; 
cursxy(29, 0); 
print (tour) ; 
cursxy(48, 0); 
print (sonics) ; 
cursxy(63, 0); 
print (energie) ; 
BLUE; /* Affiche les bordures haute et basse */ 
cursxy(l, 1); 
Cconws (" "; 
Cconws (" ": 
Cconout ("_'); 
cursxy(1, 24); 
COS (°—") ; 
CR EE à 
Cconout ("-"); 
for (ligne = 2; ligne < 24; ligne) 
{ /* Affiche les bordures droite et gauche */ 
cursxy(0, ligne); 
Cconout ('|'); 
cursxy(78, ligne); 
Cconout ("|"); 
} 


} 
cursxy(x,y) /* Met le curseur en colonne x et ligne y */ 












Craw- 































int x,y; 
L 

Cconws ("\33Y"): /* Code escape VT-52 de positionnement du curseur */ 

Cconout (y+32) ; 

Cconout(x+32); /* D'abord x puis y séparés par des espaces */ 


/* Affiche une variable entière */ 

























short r; 
short t[8]; 
i=0; 
do 
{ 
q = num/10; 
x = num-10*q; 
tliH] =r;° 
num = q; 
} 
while (num != 0); 
do 
{ /*t[] contient la décomposition en chiffres de num. Affiche */ 
Bconout (5, 16#t[-i]); 
} 
while (1 != 0); 
Bconout (5, 32); /* Met un espace à la fin du dernier chiffre */ 
} 
lit scores () 


{ 






int n,nouveau; 
long t = 1000001; 
[* Ouvre le fichier des hiscrores ou en crée un */ 


handle = Fopen(fname, 2);/* Tente d'ouvriren lecture/écriture */ 
if (handle « 0) [* S'il n'existe pas... */ 
{ 
handle = Fcreate{fname, 0);/* tente de le créer */ 
if (handle >= 0) /* Si la création aboutit */ 
{ 
nouveau = TRUE; 
nouvel ecran); 
} 
} 


else 
nouveau = FALSE; 
} 
while (handle < 0);/* Essaie tant que ça ne marche pas */ 
if (nouveau — FALSE) /* Charge les meilleurs scores en mémoire */ 
{ 
octets = Fread{handle, 1L, énbrlignes) ; 
if (octets > 0) 
{ 
nbrnoms = (int)nbrlignes; 
for (n=0; n < nbrnoms; nt) 
Fread(handle, 12L, noms[n]); 
for (n =0; n < nbrnoms; nt) 
Fread(handle, 2L, &skores[n]); 
























Fclose (handle) ; 
} /* Fin de lit scores() */ 
graph scores () /* Affiche les “graphiques” des hiscores */ 
{ 

int n; 

cursxy(27, 4); 


for n=1; n<5; ntt) 
{ 
GREEN; 
Cconout ('*'); 
Cconout (' ‘); 
RED; 
Cconout (‘*’); 
Cconout (\ ‘); 
BLUE; 
Cconout ('#'); 
Cconout (' ‘); 


GREEN; 
Cconout ('*'); 
cursxy(27, 21); 
for n=i;n<5; n#) 
{ 
GREEN; 
Cconout {‘*'); 
Cconout (' ‘); 
RE; 
Cconout ("*'); 
Cconout(' ‘); 
BLUE; 
Cconout (‘*'); 
Cconout (* ‘); 
} 
GREEN; 
Cconout {‘*'); 
for (n=5; n<20; n +3) 
{ 
RED; 
cursxy(26, n); 
Cconout (‘*'); 
cursxy(52, n); 
Cconout ('*'); 
BLUE; 
cursxy(26, n+#l); 
Cconout ('#') ; 
cursxy(52, ntl); 
Cconout ('#'); 
GREEN; 
cursxy(26, n+2); 
Cconout ('*'}; 
cursxy(52, n+2); 
Cconout (‘#'); 
} 
RED; 
cursxy(26, 20); 
Cconout {‘*'); 
cursxy(52, 20); 
Cconout {‘*); 
GREEN; 
cursxy(30, 6); 
Cconws("T OP SCORES"); 



































cursxy(29, 9); 
Bconout (5, 17); 
Cconout(*.'); [* Numéro du hi score */ 
for (n = 11; n < 19; n+t) 
{ 
cursxy(29, n); 
Bconout (5, nt7); /* Conversion en ASCII du numéro */ 
Cconout('.'); 
} 
cursxy(28, 19); 
Bconout (5, 17); 
Bconout (5, 16); 
Cconout(".'); 
} /* Fin de graph scores() */ 
affiche scores () /* Affiche noms et scores */ 
{ 
int n; 
BLUE; 
if (nbrnoms > 0) 
{ 
cursxy(32, 9); 
Cconws (noms [0]) ; 
cursxy(45, 9); 
print (skores[0]) ; 
for (n=1; n < nbrnoms; n#H) 
{ 
cursxy(32, n+10); 
Cconws (noms [n]); 
cursxy(45, n+10); 
print (skores{[n]); 


/* Fin de affiche scores() */ 
protagonistes() /* Remplit l'aire de jeu avec robots et joueur */ 
{ 

int x,yn=1; 

nrobs = tour *5; 

if (nrobs > NMAXROB) /* nrobs = minimum (tour * 5, NMAXROB) */ 
nrobs = NMAXROB; 


robots = nrobs; /* Nbre robots restant = effectif de départ */ 


while (n <= nrobs)  /* 11 faut placer n robots */ 
{ 
x = Equiprobable (0,38); /* Coord x entre 0 et 38 */ 
= Equiprobable(0,21); /* Coord y entre 0 et 21 */ 
" (ecran[x] [y] = VIDE) /* 11 faut que la case soit vide */ 
{ 
x robot[n] = x; 
y_robot[n] = y; 
ecran[x]{y] =n; /* Et un robot de casé, un! */ 
nt; 
} 
} 
x = FALSE; 
while (x — FALSE) 
{ /* Placer le joueur dans une case vide +/ 
x who = Equiprobable(0, 38); /* entre 0 et 38 */ 
l'A ; who = Equiprobable(0, 21);./* entre 0 et 21 */ 
if (ecran[x who] [y who] = = VIDE) 
{ 
ecran{x who] [y who] = 
x = TRUE; 
} : 


} 
} [* Fin de sociales 0 */ 


int a,b; 
{ float Randn(); 
return ({int)((b-a) * Randm(OL) + a)); 
} 
aff protag()  /* Affichage des protagonistes */ 
{ 





int x,y,n; 
for (n=1; n <= nrobs; n#t)/* Affiche les robots */ 
{ 
if (x robot[n] < 100)/* Si pas débris ou mort */ 
{ /* Affiche le robot à sa coord */ 
cursxy((x robot[n]*2)#1, y_robot [n]+2) ; 
RE; 
Cconout (CROBOT);  /* Affiche le car. du robot */ 
} 
else 
i£ (x robot{n] < 200)/* Sinon, est-ce un débris? */ 
{ 
x = x robot[n]-100;/* La coord x est calculée */ 
y = ÿ_robot[n]; 
cursxy((x *2)#, y+2); 
GREEN; 
Cconout (CHEBRIS) ; /* Affiche le car. du débris */ 
} 








} 
cursxy((x who *2)+l, y whot2);/* Affiche le joueur... */ 
BLUE; 
REVERSVID; [* ..en vidéo inverse */ 
Cconout (CJOUEUR) ; 
NORMALVID; 
} 
bouclejeu() /* Traite l'action du joueur */ 
{ 
int action,status = OK, flag, cmpteur 
int xw,yw; 
while (status — OK) 
{ 
while (Cconis () 1= 0)/* Vide ke buffer clavier */ 


: /* Lit une touche au clavier */ 


/* Direction 1 (bas, gauche) */ 

status = depl joueur(-1, 1); 
break; 

case ‘2! : [* Direction 2 (bas) */ 
status = depl joueur (0, 1); 
break; 

case ‘3! : /* Direction 3 (bas, droite) */ 
status = depl joueur(1l, 1); 
break; 

case ‘4! : /* Direction 4 (gauche) */ 
status = depl_joueur(-1, 0); 
break; 

case ‘5’ : /* Ne bouge pas le joueur */ 
status = depl robots();/* Les robots bougent */ 
break; 

case ‘6’ : /* Direction 6 (droite) */ 
status = depl_joueur(l, 0); 
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int Equiprobable(a, b)  /* Retourne un entier équiprobable */ 


if (status — NOUVOTOUR) 
case ‘7! : /* Direction 7 (haut, gauche) +/ break; 
status = depl_joueur(-1, -1); status = detr robot (l, 0); 
break; if (status — NOUVOTOUR) 
case ‘8! : /* Direction 8 (haut) */ break; 
status = depl joueur(0, -1); status = detr robot (-1, -1); 
break; if (status — NOUVOTOUR) 
case ‘9! : /* Direction 9 (haut, droite) */ break; 
status = depl joueur(1, -1); status = detr robot (0, -1); 
break; if (status — NOUVOTOUR) 
case ‘c! : [* Inverse les couleurs */ break; 
case ‘C!' : status = detr robot(l, -1); 
if (toggle = 1) if (status — NOUVOTOUR) 
{ break; 
if (rez = 1) status = depl robots(); /* C'est aux robots de se déplacer */ 
{ } 
Setcelor(0, | break; 
Setcolor(1, case ‘t'.: /* Téléportation */ 
Setcolor(2, case ‘T' : 
Setcolor(3, if (energie >= TLPCONSO) /* Si assez d'énergie */ 
: { 
energie -= TLPCONSO; /* Soustrait la conso du téléporteur */ 
cursxy(63, 0); /* et met à jour la ligne d'état +/ 
Setcolor(0, GREEN; + 
Setcolor(1, print (energie) ; 
Setcolor (2, ecran[x who] [y who] = VIDE; /* Efface le joueur de sa case */ 
Setcolor(3, Dosound{telepl);  /* 1ère partie du son */ 
delai (); /* attend un peu */ 
cursxy((x who *2)+1, y whot2); 
Cconout (' ‘); /* Efface le joueur à l'écran */ 
init (); flag = FALSE; /* Tente de trouver une case vide sans robot */ 
toggle = -toggle; cmpteur = 0; 
break; x = Equiprobable(1, 37) ;/* X départ de 1 à 37 +/ 
case \i : /* Affiche les instructions */ y = Equiprobable(1, 20) ;/* Y départ de 1 à 20 */ 
case ‘I’ : ñ do 
instruct (); ÿ ' { 
nouvel ecran); if (case ok{xw, yw)) 
aff_protag(); { 
break; flag = TRUE; 
case ‘l' : /* Laisse les robots avancer */ break: 
case ‘L' : [* Si case pas OK, essaie (xw, yw) adjacent */ 
while (status — OK) capteur; 
status = depl robots (); xWH; 
break; if (xw > 37) /* Si fin de ligne, aller à la ligne suivantet/ 
case ‘s' : /* Tire une charge de Sonic */ { 
case \S’ : xw=1; 
if (sonics > 0) /* Reste-t-il des charges ? */ yet: 
{ i£ (yw > 20)/* Si dernière ligne, aller à */ 
sonics -= 1; yw=1; /* la première ligne */ 
cursxy(48, 0); /* Décrémente les charges */ ai 
GREEN; /* Et met à jour la ligne d'état */ } 
print (sonics) ; while (cmpteur < 740);/* Fait 37 * 20 = 740 tentatives max */ 
status = detr robot(-l, 1);/*Détruit dans les 8 cases autour*/ if (flag = TRUE) /* Si case OK, */ 
if (status =— NOUVOTOUR) /* Si dernier robot, */ { | 
break; [* nouveau tour */ x who = xw; /* placer le joueur dessus */ 
status = detr robot (0, 1); y_who = yw; 
if (status — NOUVOTOUR) } 
break; else /* Sinon le mettre sur une case vide */ 
status = detr robot(1, 1); do /* quelconque */ 
if (status — NOUVOTOUR) { 
break; x who = Equiprobable (0,38) ; 
status = detr robot(-1, 0); yÿ_who = Equiprobable (0,21) ; 








LA à 















} 
while (ecran[x who][y who] != VIDE); 











cursxy((x who *2)#1, y_whot2) ; 
Dosound(telep2) ; 
delai (); 





















Cconout (CJOUEUR) ; /* Et affiche joueur */ 
NORMALVID; /* en vidéo inverse */ 
status = depl robots(); /* Les robots bougent */ 


} /* Fin if (energy >= TLPCONSO) */ 
else /* Si pas assez d'énergie, */ 
{ /* le téléporteur claque à vide */ 


Dosound (crash) ; 


/* Quitte le jeu */ 


} /* Fin switch */ 
} /* Fin while */ 
if (status — NOUVOTOUR) 
{ 

eff aire jeu(); 

tour; 


sonics#+; /* 1 charge Sonic et 1 charge téléporteur 
à chaque nouveau tour */ 

energie += TLPCONSO; 

nouvel ecran); 


else 
if (status — MORT) 
{ 
Dosound (kaput) ; 
if (score > 10) 
enreg_score () ; 
eff aire jeu {); 
tour = 1; 
sonics = 1; 
score = (; 
energie = ENERGI; 
cursxy(26, 1); 
GREEN; 
Cconws (“Voulez-vous rejouer? (o/n)"); 
flag = FALSE; 
while (flag = FALSE)/* Lit une touche jusqu'à ‘o' ou ‘n' */ 
{ 
action = Crawcin(); 
switch (action) 
{ 
case ‘n' : 
case ‘N' : 
quit = TRUE; 
flag = TRUE; 
break; 
case ‘o' : 
case ‘0' : 
nouvel ecran); 
flag = TRUE; 






















ecran[x who] [y who] = WHO; /* Met joueur dans l'aire de jeu */ 
























































199 


int case ok(xw, yw) /* Vérifie que (xw, yw) et les 8 cases autour vides*/ 











int xw,yw; 
{ 












register int x,y,0k; 
ok = TRUE; 
for (x =-1; x < 2; x) 
{ 
for (y =-1; y < 2; #y) 
{ 
ok = ok 66 (ecran{x + xw][y + yw] = VIDE); 
if (ok — FALSE) 
break; 
} 
if (ok —= FALSE) 
break; 
} 
return (ok); 
} /* Fin de case ok) */ 
delai() /* Temporisation pour laisser les sons finir */ 
{ 













long z = 25000L; 
while (z > 0) 
z =]; 







} 
depl joueur (x, y) 
int x,y; 


/* Déplace joueur dans direction indiquée par x, y */ 





{ 






int status; 

ecran[x who] [y who] = VIDE; /* Efface ancienne case */ 
cursxy((x who *2)+1, y who+2); [* ...et à l'écran */ 
Cconout{' ‘); 

x who += x; /* Ajoute déplacement voulu sur x */ 
if ((x who < 0) || (x who > 38)) /Xérifie nouvel x dans les limites*/ 
x who -= x; /* Si non, reste à l'ancien x */ 
y_who += y; /* Ajoute déplacement voulu sur y */ 
if ((y_who < 0) [1 (y_vho > 21). /XVérifie nouvel y dans les limitest/ 

y_who = y; [* Si non, reste à l'ancien y */ 
if (ecran[x who] [y who] = DEBRIS) /*S'il y a des débris sur la case*/ 
{ 














energie; /* Absorbe le débris +/ 
ecran[x who] [y who] = VIDE; 

cursxy(63, 0); /* Met ligne d'état à jour +/ 
GREEN; 

print (energie) ; 


} /* Met le curseur à la nouvelle position du joueur */ 
cursxy((x who +2)+1, y_who+2) ; 
if (ecran[x who] [y who] = VIDE) 
{ 

BLUE; : 

REVERSVID: /* affiche le joueur en vidéo inverse */ 

Cconout (CJOUEUR) ; 

NORMALVID ; 

ecran{x who] [y_who] = HO; /* Met joueur dans A.J. */ 

status = depl_robots();/* Fait bouger les robots */ 
/* Si nouvelle case pas vide, le joueur est mort */ 


[* Si case vide, */ 











Cconout ('*'}; 
status = MORT; 

} 
k return (status); 
Gepl_robots() /* Effectue les déplacement des robots #/ 


| ant x,y,n; 
Lfor (n=1; n <= nrobs; n#t)  /* Pour chaque robot +/ 
{ /* S'il a été détruit, l'effacer */ 
if (x robot{[n] < 100) 
ecran{[x robot{n]][y robot{[n]] = VIDE; 
n } /* Calcule le déplacement de chaque robot (pour se rapprocher) */ 
for (n=1; n <= (nrobs); n#) 
{ 
if (x robot{n] < 100) 
Mi 
if (x robot{[n] < x who) /* Déplacement sur x */ 
x = x robot{n]#l; 
else 
if (x robot[n] > x who) 
x = x robot{[n]-1; 
else 
x = x robot{n]; 
if (y robot[n] < y who) /* Déplacement sur y */ 
y = y robot{n]+1l; 
else 
if (y robot[n] > y who) 
y = y robot[n]-1; 
else 
y = y robot[n]; 
switch (ecran{x] [y]) 
| { 


[* Si robot non détruit */ 





/* Le robot a-t-il heurté qgchose ? */ 


case VIDE : 
(f if (ecran{x robot [n}][y robot[n]] = VIDE) 
{ /* Efface robot si necéssaire */ 


cursxy((x robot{n]*2)+1, y robot[n]+2); 
Cconout (! ‘}; 
à } 
x robot[n] = x; 
y_robot{n] =y;  /* Change position robot #/ 
( ecran[x][y] = n;/* Met numéro robot dans A.J. */ 
| cursxy((x *2)#1, y+2); 
KE; 
| Cconout (CROBOT) ; /* Affiche robot à nouvelle position */ 
break; 
case DEBRIS : 


if (ecran[x robot [n]][y robot[n]] = VIDE) 

{ /* Efface ancienne case si nécessaire */ 
cursxy ((x robot [n]*2)+1, y_robot[n] +2); 
Cconout (' ‘); 

} 

x robot[n] += 200;/* Si débris, robot foutu */ 

score++; [* #1 au score */ 

Dosound (crash) ; 

delai (); 

cursxy(7, 0); 

GREEN; 

print (score) ; 

robots -= 1; 

if (robots = 0)/* Si dernier robot, nouveau tour */ 
return (NOUVOTOUR) ; 


/* Met score à jour */ 


case WHO : /* Si le robot atteint le joueur */ 
if (ecran[x robot{n]][y robot [n]] = VIDE) 
{ /* Efface case si nécessaire */ 
cursxy((x robot[n]*2)+1, y robot [n]+2); 
Cconout (‘ Es 
} 
cursxy((x *2)+1, y+2); 
BLUE; 
Cconout ( \k! ): 
return (MORT); 
break; 
default : /* Sinon, c'est une collision entre robots */ 
x robot [ecran[x][y]] += 100;/* Change ce robot en débris */ 
ecran{x][y] = DEBRIS;/* Met débris dans A.J. +/ 
if (ecran[x robot{n]][y robot{n]] = VIDE) 
{  /* Efface case si nécessaire */ 
cursxy((x robot[n]*2)+1, y_robot[n]+2); 
Cconout (' ‘}; 
} 
x robot[n] += 200; /* Ce robot est détruit */ 
cursxy((x *2)+1, y+2); 
GREEN; 
Cconout (CDEBRIS) ; 
score += 2; 
Dosound (crash) ; 
delai (); 
cursxy(7, 0); 
print (score) ; 
robots -= 2; 
if (robots = 0) /* Si dernier robot, */ 
return (NOUVOTOUR) ; /* nouveau tour */ 
/* Fin de switch */ 
/* Fin de if (robot pas détruit) */ 
/* Fin de for */ 


/* Affiche débris */ 
/* +2 au score */ 


/* Met à jour le score */ 


/* Fin de depl_ robot #/ 
/* Détruit robot par Sonic */ 
/* x, y = déplacement relatif au joueur */ 


detr_ robot (x, y) 
int x,y; 
{ 
int xflag = 0,y£lag = 0,n,status = OK; /#Vérifie x dans les linites */ 
if ((x whotx >= 0) 86 (x whotx <= 38)) 
xflag = TRUE; /* Vérifie que y est dans les limites */ 
i£ ((y_whoty >= 0) && (y whoty <= 21)) 
yflag = TRUE; 
if (xflag 66 yflag) 
{ 
n = ecran[x whotx] [y whoty]; 
if ((n > 0) &6 (n < WH0)) 
{ } 
Dosound (sonik) ; 
delai () ; 
ecran{[x robot [n]]{y robot{n]] = VIDE; /* Efface robot détruit */ 
cursxy((x robot{n]*2)+1, y_robot[n]+2); 
Cconout ( ‘); 
x robot[n] += 200;/* Marque le robot come étant détruit */ 
score++; /* +1 au score */ 
GREEN; 
cursxy(7, 0); 
print (score) ; /* Met le score à jour */ 
robots -= 1; /* Si dernier robot, nouveau tour */ 
if (robots = 0) 


/* Si les deux sont bons */ 


/* Est-ce un robot ? */ 
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return (status); 
} /* Fin de detr robot */ 
eff aire jeu() 

{ 


/* Nettoie L'A.J. */ 






int n; * 
for (n=1; n <= nrobs; nt) 
{ 
if (x robot[n] < 100) 
ecran[x robot {[n]][y_robot{n]] = VIDE; 
else 



























while ((flag = FALSE) && (n < 10)) /* Trouve le plus bas score +/ 
{ : 
if (score >= skores[n])/* Score courant plus haut? */ 

flag = TRUE; /* Si oui, sortie; n = rang */ 
else 
Han; 















} 

if (n < 10) /* Si n«10, score = le plus mauvais sinon, son rang est #/ 

{ /* de 0 à 9. Décale les scores d’un cran #/ 
for (x=8; x>=n; x-) } 
{ 


stropy(nons{x+1], nons[x]); /* Les noms... */ 
skores[x+1] = skores[x];  /* ...et les scores */ 
} 
skores[n] = score; [* Sauve score courant */ 
strepy(noms[n], blank); /* Efface ancien nom */ 
if (nbrnoms < 10) /* Si tableau pas plein, incrémente nb de scores*/ 
+nbrnons ; 
cursxy(22, 1); 
GREEN; 
Cconws (“Frappez une touche pour continuer..."); 
Crawcin(); 
nouvel ecran(); 
graph scores () ; 
affiche scores (); 
x=0; 
if ù—0) /* Positionne le curseur pour la frappe du nom */ 



















{ 


/* Affiche les hi scores */ 


cursxy(32, 9);  /* Position pour score no. 1 */ 
else 

cursxy(32, n+10); /* Position pour autre score */ 
CURSON; 
BLUE; 
while (x < 12) [* 12 cars. maxi pour le nom */ 








{ 
ch = Cconin():/*Lit un car au clavier, Si pas backspace ou Enter*/ 
if ((ch != 13) 66 (ch !=8)) 

{ 
noms{n] [x] = ch; /* Met le car lu dans le nom */ 
Hx; /* Passe au car suivant */ 


Ù » 
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} 
float Randn(l) long 1; 














else 


if (ch—8)  /* Si backspace, décrémente x */ 

{ 

if (x !=0) /* sauf si début de ligne */ 
7%; 

else 


Cconout (* );/* Si début ligne,met un blanc */ 






z= 12. /* Si Enter, sortie de boucle */ 











/* Eteint le curseur */ 
ecrit hiscores (); /* Ecrit le tableau des scores sur disque */ 





if (x robot{n] < 200) cursxy(22, 22); 
ecran{x robot [n]-100] [y_robot[n]] = VIDE; BLUE; 
} Cconws (“Frappez une touche pour continuer. .."); 
ecran{x who] [y who] = VIDE; Crawcin () ; 
} nouvel ecran); 
enreg score() /* Enregistre nom et score d’un champion */ } /* Fin de if n < 10 */ 
{ } /* Fin de enreg score() */ 
int n = 0,flag = FALSE, x; ecrit _hiscores () 
char ch; { 
int n; 


nbrlignes = (char)nbrnoms; 
handle = Fopen(fnane, 2); 
Furite(handle, 1L, &nbrlignes); 
for (n = 0; n < nbrnoms; n#) 
Fwrite (handle, 121, noms[n]); 
for (n = 0; n < nbrnoms; nH) 
Furite (handle, 2L, &skores[n]); 
Fclose (handle) ; 
[* Fin de ecrit hiscores() */ 
/* Restaure couleurs du bureau */ 


Setcolor(1, coul 1); 

Setcolor(2, coul 2); 

Setcolor(3, coul 3); 

GREEN; /* Remet le curseur en couleur 3 (défaut) */ 
CLREM; /* Efface écran */ 

/* Montre la souris */ 


/* Retourne un float entre 0 et 1 exclus */ 
static unsigned long s; 
long t; 
if (L— OL) /* Cas général,.on veut une valeur */ 
{ /* % est l'opérateur modulo */ 
t = CONST À * (s % CONST Q) - 
if (t > OL) 
s=t; 
else 
s = t + CONST M; 
return((float)s / (float) CONST M); 
} 
else /* On veut initialiser le générateur, si init automatique, */ 
if (L< OL) /* prendre l'horloge système comme semence */ 
s = (unsigned long) clock(); 
else /* Sinon on utilise la valeur >0 passée en argument */ 
s = (unsigned long) 1; 
return(0.0); 
/* Fin Randn(); */ 


CONST_R * (long) (s / CONST Q); 


























































Après la pause du mois dernier, avec la présentation 
sommaire de notre outil de développement, il est grand 
temps de réactiver nos neurones en reprenant la suite 
de notre étude détaillée des instructions. Pour cette 

ériode de vacances, nous abordons l'instruction 
"MOVEP" et l’adressage des périphériques, histoire de 
bronzer de l’intérieur. 


Si vous vous souvenez, il y a très longtemps, nous 
avions parlé de "bits", en soulignant que le 68000 était 
un microprocesseur 16 bits. Néanmoins, ce dernier est 
capable d'adresser des circuits périphériques 8 bits en 
taille octet (.B). L'instruction MOVEP permet d'adresser 
ces mêmes périphériques 8 bits selon un format mot 
(W) ou long-mot (.L). 


Tout d’abord, il faut savoir que les registres d’un circuit 
périphérique 8 bits ne peuvent se situer, dans une 
configuration mémoire 68000 qu'à des adresses 
exclusivement paires ou impaires, comme le montre le 
schéma 15.1 sur lequel on considère un périphérique 
classique constitué de six registres REG1 à REG6. 


k Le pourquoi de cette sombre histoire d’adressage 
dépasse le cadre de la présente initiation (ouf ! je l'ai 
échappé belle). Néanmoins, les plus curieux pourront 
toujours essayer de chercher sur le 68000 une broche A0 
(sur le bus d'adresse) et se pencher sur la connexion 
matérielle entre le micro et le périphérique... 


Pour bien comprendre l'intérêt de l’instrüction MOVEP, 
considérons l'initialisation des six registres du pseudo 
périphérique précédent avec les valeurs suivantes : 
REG5 = 300, REG6 = $FF, REG1 = $FA, REG2 = $DE, 
REG3 = $A2, REG4 = $C1 (selon l’ordre précisé). 

L On peut réaliser cette initialisation avec la classique 
instruction MOVE en adressant des octets. Supposons 
que l'adresse de base de ce périphérique soit égale à 
$000FA000 et qu'il soit situé aux adresses impaires. 


PERIPHERIQUE 
EN UOIE PAIRE 


ADRESSE 
IMPAIRE 


ADRESSE 
PAIRE 


SCHEMA 15.1 


INITIATION A 
L'ASSEMBLEUR (XVI) 


D15-D8 D7-D8 


PERIPHERIQUE 8 BITS EN ENVIRONNEMENT 68088 








On peut alors définir les équivalences suivantes : 


ADRESS 10 EQU $000FA000 /* adresse de base */ 

REGI EQU 1 /* 1 octet par rapport à ... */ 
REG2 EQU 3 /* 3 octet par rapport à ... */ 
REG3 EQU 5 PÉTER 

REG4 EQU 7 

REG5 EQU 9 

REG6 EQU 11 


Les REGx sont définis tels des offsets par rapport à 
l'adresse de base du circuit, déterminée par 
ADRESS IO. Le circuit étant réellement aux adresses 
impaires, l'adresse "de base” ADRESS IO étant déclarée 
paire, les déplacements REGx sont forcément impairs... 
Logique ! non ? 

Ce type de définition d'équivalence permet d'utiliser 
aisément l’adressage offset 16_bits(registre_ Adresse) : 


ADRESS 10, A0 
#$00, REG4 (AO) 
#$FF, REG5 (A0) 
#$FA, REGO (A0) 
#$DE, REG1 (A0) 
#$A2, REG2 (A0) 
#$C1, REG3 (A0) 


Résumons : s’il est aussi facile d'initialiser notre 
périphérique avec des MOVE.B classiques, l'instruction 
MOVEP n'est qu'une fumisterie ? Diantre que neni! 
(pour les moyenâgeux), ben non! (pour les autres). 
Lorsqu'il s'agit d’un périphérique possédant plus d'une 
vingtaine de registres (si, ça existe, le MFP en possède 
24), on apprécie de pouvoir les initialiser deux par deux 
ou même quatre par quatre... c'est-à-dire selon un 
format MOT ou LONG-MOT avec l'instruction MOVEP. 
Les seules possibilités d'adressage autorisées avec le 
MOVEP sont : : 
MOVEP .W 
MOVEP .L 


Dn,DEP16 (An) 
Dn, DEP16 (An) 


IMPAIRE 


D15-D8 D7-D8 
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pour la programmation (écriture) des registres d'un 
périphérique, et : 


MOVEP .W 
MOVEP .L 


DEP16 (An) ,Dn 
DEP16 (An) ,Dn 


pour la lecture des registres. 


L'utilisation exclusive du mode d’adresage DEPI16(An) 
explique que les équivalences de définition des registres 
d'un périphérique sont faits relativement à une adresse 
de base (avec laquelle on initialise évidemment le regis- 
tre d'adresse An. Ainsi l'exemple de programmation 
précédent avec les MOVE.B se résume à 


LEA ADRESS_10, A0 
MOVE.W  #$00FF, d0 
MOVEP.W DO, REGA (A0) 
MOVE.L #$FADEA2C1,D0 
MOVEP.L DO, REGD (A0) 


Le schéma 15.2 illustre cet exemple de transfert. 


Mais au fait, une question à 10 bits : un transfert (vers 
un périphérique 8 bits) sous forme MOT ou 
LONG-MOT avec un MOVE, ça donne quoi ? 

En supposant notre périphérique aux adresses impaires, 
deux cas peuvent se présenter : 


- une erreur d'adresse lors d’un transfert MOT ou 
LONG-MOT à une adresse IMPAIRE; 

- une erreur bus si les cases mémoire paires, en regard 
des cases impaires où se situe le périphérique, ne sont 
pas reconnues par le décodage matériel. 


Avant d'aborder la "map" des périphériques sur un ST 
(cas d’un 1040 STF), revenons sur les possibilités de 
fonctionnement du 68000 en mode utilisateur et 
superviseur. 

Dans le registre d'état du microprocesseur (le SR), le bit 
S reflète le mode de fonctionnement : S=1 le micro est 
en mode superviseur, S=0 il est en mode utilisateur. 
Quelquefois, pour accéder aux zones mémoire réservées, 
votre programme devra s'exécuter en mode 
superviseur. Heureusement, le système d'exploitation 
intègre une fonction permettant de faire exécuter une 


Dal,,,::00FF 


MOUEF ,.H  DG,REG4(AGI 


D15-D8 D7-D8 
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routine en mode superviseur en lui passant en 
paramètre l'adresse de la routine. Un appel typique de 
cette fonction vous est proposé ci-dessous : 


Supexec equ $26 
pea.l adresse paramètre dans la pile 
move.w  #Supexec,-(a7) code de la fonction 


trap #14 appel XBIOS (On verra) 
addq.l #6,a7 réalignement de pile 
adresse equ E 


Début routine à exécuter en mode superviseur 


Avec cette fonction, vous allez (enfin ?) pouvoir 
bidouiller dans des zones encore inexplorées, telle que 
la zone périphérique superviseur ou celle des variables 
globales du système d'exploitation. Aie ! Attendez au 
moins la rentrée qu'on vous explique à quoi ces 
dernières servent. Quant aux différents circuits 
périphériques du ST et leurs rôles respectifs, ils sont 
répertoriés sur le schéma 15.3. 


Pour chaque périphérique, les positions "mémoire" 
occupées (paires ou impaires) et les adresses sont 
précisées sur le schéma 15.4. On peut remarquer que 
pour la majorité des circuits l'instruction "MOVEP" 
s'avère utile, bien que pour d’autres elle ne s'impose 
pas. C’est par exemple le cas pour le circuit sonore ou 
le contrôleur vidéo dont certains registres sont en voie 
paire, d'autres en voie impaire. 


Pour illustrer ces questions d'adressage de périphériques 
et pour agrémenter vos vacances studieuses, nous vous 
proposons un exemple de programmation du circuit 
sonore du ST : le YM-2149 (ou son équivalent). 

Il y a, en assembleur, deux manières de programmer ce 
circuit : la première consiste à accéder directement aux 
registres du circuit grâce aux adresses précisées sur le 
schéma 15.4. Cependant, il va falloir assurer l'exécution 
de votre programme en mode superviseur sous peine 
de récupérer une exécrable erreur de bus (deux bombes, 
deux!) car le circuit se situe dans la zone périphérique 
"système". 


D@|FADE:A2C1 
MOUEF .L  DG,REGS(AGI 
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HARD DISK 
FLOPPY DISK 





SCHEMA 15.3 


ADRESSES Et : 
IMPAIRES 


Enveloppe type "jeu video" 

Enveloppe type "belle mère” 

Enveloppe type "vaisseau spatial" 

Réinitialisation du canal utilisé (son aigu) 
Enter Fin du programme (Ouf!) 





&, 0, 0.0.6 0.0.0: 
©.0.0.0.0,0.0.0.0: 
©.,0.0.0.0,%,0.2.@ 
@.,0,0.0,0,0,0,0,0: 
0.0,0,6:0,0.0,0, D, 


4 
m 
Cl 
b=) 


SCHEMA 15.4 


“arder à la deuxième méthode, qui consiste à utiliser les 
Monctionnalités de la partie XBIOS du système 81 EQU 
d'exploitation. EQU 
EQU 
Je but de l'exercice est de transformer votre pavé EQU 
“numérique en pavé musical (dans la mare...) sur lequel EQU 
Vous pourrez choisir, outre les notes, diverses EQU 
enveloppes pour votre son. La correspondance entre les EQU 


“touches et les notes/enveloppes vous est indiquée 

Ci-dessous: NO_WAVE  EQU 

WAVE EQU 

Mouche WAVE2  EQU 
Note DO WAVE3 EQU 
Note RE 


Note MI Pour les enveloppes, les valeurs de 0 à 15 sont 
Note FA possibles La zone de données contient les chaînes de 
Note SOL commandes du circuit que vous pouvez modifier par 
Note LA l'intermédiaire des équivalences de la page suivante. 


Note SI 
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Les autres touches ne sont pas utilisées, à chaque appui 
sur l’une d'entre elles, nous vous conseillons de 
réinitialiser le canal (touche ‘*). 


La fonction XBIOS à utiliser est DOSOUND, pour 
laquelle il convient de placer l'adresse d'une chaîne de 
commande du circuit son sur la pile. L'explication des 
différentes chaînes de commandes n'est pas ici notre 
but, ceci dit nous vous en dirons l'essentiel pour 
pouvoir faire vos essais. Sachez néanmoins que 
beaucoup d'ouvrages sur le ST traitent du 
fonctionnement du circuit son... 


Il nous faut tout d’abord une chaîne d’initialisation du 

canal À du circuit (le seul que nous utiliserons sur les 

ZONE_PERTPHERTQUE trois canaux). Cette dernière est repérée par l'étiquette 

init dans le listing. D'autres chaînes permettent de faire 

Par ailleurs, étant donné que certains de ces registres JOUER Une note ou de programmer une enveloppe. Les 

Sont aussi utilisés pour les lecteurs de disques et la équivalences (que vous ne manquerez pas de changer 
Miaison série, nous allons nous intéresser sans plus | POUr voir...) sont ci-dessus. 


150 
200 
5 
70 
105 
180 
0 


15 ; pas d’enveloppe 

8 : première forme d'enveloppe 
10 à 

12 " 
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SECTION DATA 
table DC.L key 0,key 1,key 2,key 3,key 4, 
DC.L key 5,key 6,key 7,key_8,key 9 
init DC.B 8,$F,7,$FE, FIN, COMMANDE 
key _0 DC.B 1,3,0,D0,FIN, COMMANDE 
key_1 DC.B 1,2,0,RE,FIN, COMMANDE 
key_2 DC.B 1,2,0,MI,FIN, COMMANDE 
key_3 DC.B 1,2,0,FA,FIN, COMMANDE 
key_4 DC.B 1,2,0,SOL, FIN, COMMANDE 
key_5 DC.B 1,1,0,LA,FIN, COMMANDE 
key _6 DC.B 1,1,0,SI,FIN, COMMANDE 
key_7 DC.B 8,$10,12,10,11,0,13,WAVE1, FIN, COMMANDE 
key_8 DC.B 8,$10,12,10,11,0,13,WAVE2,FIN, COMMANDE 
key_9 DC.B 8,$10,12,10,11,0,13,WAVE3, FIN, COMMANDE 
key star DC.B 8,NO WAVE, FIN, COMMANDE 


Dans la zone de données initialisées, l'étiquette "table" 
définit un tableau d'adresses des différentes chaînes de 
commande (key_x). Pour passer cette chaîne de 
commande à la fonction DOSOUND, nous utiliserons le 
mode d’adressage DEP8(An,Dn.w) avec An contenant 
l'adresse "table" et DO.W le déplacement par rapport à 
cette adresse. Ce déplacement est obtenu d’après le 
code ASCII de la touche frappée moins $30 (afin 
d'obtenir une valeur comprise entre 0 et 9), puis il y a 
une multiplication par 4 pour pointer sur l'adresse 
voulue, vu qu’une adresse est codée sur quatre octets. 
(voir le listing). 


Nous vous proposons un pseudo-code, autour duquel 
toutes les fantaisies sont permises: 


DEBUT 

/* Startup */ 

/* Empiler la chaine d'initialisation */ 
/* Appel à DOSOUND */ 


REPETER 
/* Saisie clavier sans écho (CRAWCIN) */ 
SI Di.B est NUL 
ALORS 
SI D0.B différent de '*' 
ALORS 
/* retrancher $30 de DO */ 
SI DO non négatif 
ALORS 
SI DO inférieur à 9 
ALORS 
/* Multiplication de DO par 4 */ 
/* init A0 avec l'adresse "table" */ 
/* init Al avec l'adresse de la chaine de cmde */ 
/* empilement de Al */ 
/* appel à DOSOUND */ 
FINSI 
FINSI 
SINON 
/* empiler l'adresse de la chaine de réinit. */ 
[* appel à DOSOUND */ 
FINSI 
SINON 
/* retour startup */ 
FINSI 
JUSQU'A l'infini 
FIN 


Dans le Numéro 41, nous avions écrit un 
sous-programme effectuant une attente jusqu'à appui 
sur la touche ‘ESC’. Nous allons ici réaliser 








pratiquement la même chose sauf que la touche à 
détecter est "ENTER". Le sous-programme retourne dans 
DO.B la valeur ASCII de la touche frappée et $FF dans 
D1 s'il s'agit de ENTER. Nous conseillons de reprendre 
en main votre collection de ST Mag pour bien assimiler 
cette partie du programme : 

Hit kbd ŒEQU * 


MOVE.W #CRANCIN, - (A7) Code de fonction 


TRAP #1 Appel GEMDOS 

ADDQ.L #2,A7 Réalignement de la pile 
CMPI.B #ENTER, DO Test touche frappée 
SEQ D1 Si ENTER alors Di = $FF 
RTS 


Voilà, c'est tout! A vous de jouer. N'oubliez pas de 
faire l'édition de liens de votre programme avec le 
STARTUP.BIN ou d'insérer le STARTUP.S en source 
avant de générer votre ".PRG”. 

Outre les équivalences et la zone de données initialisée, 
le listing complet du programme (y compris le 
STARTUP pour les réfractaires de l'édition de liens) est 
le suivant : 


SHRINK EQU $4A : code fonction, rend la mémoire 
TERM EQU $4C : code fonction, Fin de programme 
CRAWCIN EQU $07 ; code fonction, saisie clavier 
DOSOUND EQU $20 ; code fonction, circuit sonore 
FIN EQU $FF ;: premier octet de fin de commande 
COMMANDE EQU $00 : deuxième octet de fin de commande 
ENTER EQU $0D ; touche de fin de programme 
KKXXAKKX 


* Rajouter les équivalences des notes et enveloppes... 


SECTION TEXT 


KKKKAXY 

* Startup 
XREF Main 
MOVE.L 4(A7),A0 
MOVE.L $C(A0),D0 
ADD.L $14 (A0) ,D0 
ADD.L $1C (A0) ,D0 
ADD.L  #$800,D0 
ANDI.L #-2,D0 
LEA.L 0 (A0,D0) ,A7 
MOVE.L DO,-(A7) 
MOVE.L A0,-(A7) 
CLR.W - (A7) 
MOVE.W #SHRINK, - (A7) 
TRAP #1 
ADD.L #12,A7 
TST.L DO 
BNE Out_gem 
[SR Main 

Out_gem 
MOVE.W  D0,-(A7) 
MOVE.W #TERM,-(A7) 
TRAP #1 

KKAREXE 


* Programme principal 


Main EQU * 
PEA init (PC) ; initialise le canal À 
MOVE.W  #DOSOUND, - (A7) 
TRAP #14 
ADDO.L #6,A7 
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Hit key 

Di SÉINLT 
Retour 

#"*x", DO 

Not _wave 
#$30,D0 

Loop 

#9,D0 

Loop 

#4,D0 

table (PC), A0 
0(A0,D0.W),A1l 
Al,-(A7) 
#DOSOUND, - (A7) 
#14 ; 
#6,A7 

Loop 


: reset du canal A 


;: touches 0 à 9 ? 


: calcul offset table 


Not_wave key star (PC) 

#DOSOUND, - (a7) 

#14 ; programmation enveloppe 
#6,A7 


Loop 


LÉLEL SES) 
Hit_key À compléter... 


KAKKKKAE 


SECTION DATA 
À compléter... 


Noter que ce programme source et l’exécutable associé 
sont sur la "disquette magazine" du présent numéro 
(fichiers PLAY.S et PLAY .TOS). Bonne mumuse! 

Il y a fort à parier que vous allez irriter les oreilles de 
votre petit frère avec tous les bruits bizarres que vos 
programmes inestimables distilleront tout au long de 
ces mois de vacances! Mettez-lui des "boules quiès' que 
vous enlèverez en septembre pour lui expliquer le 
principe des exceptions et des interruptions que vous 
aurez fièrement appris d'ici-là.. 


C. PASCALADA 


INITIATION AU 


BASIC GFA - V 
(SERIE N° 2) 


L'heure est venue d'éclairer nos pas. Quel est donc 
“notre objectif final, notre destinée secrète, notre voeu de 
connaissance ? Connaître la structure d’un micro 
ordinateur ! Et pour ce faire, il FAUT que vous maîtri- 
siez parfaitement les notions qui vont suivre. 


«Si vous souhaitez percer tous les mystères du codage 
binaire, vous devrez connaître les puissances de deux. 
Tous ceux qui haïssent viscéralement les mathématiques 
viennent de quitter bruyamment le rang. Revenez ! En 
fait, cette méthode de calcul est débilement simple, et 
“vous ne pouvez que réussir à la pratiquer. Nous avons 
“créé - à votre intention - plusieurs petits programmes 
qui vont vous y aider. 


MLes puissances de deux 


MÉlever un nombre à la puissance N, consiste à 
multiplier ce nombre par lui-même, N fois de suite. Par 
exemple, 3 à la puissance 2 est égal à 9 ; 2 à la 
puissance 3 est égal à 8, etc. Pour ce qui nous concerne, 
(seules les puissances du chiffre 2 présentent de l'intérêt. 
Ceci tient au fait qu’un bit a deux états, et que 
combiner plusieurs bits revient à combiner tous leurs 
états possibles. 


Notation des puissances : comme vous le savez, l'élévation 
[à la puissance est notée, en Basic, avec l'accent circon- 
flexe. Par exemple, 2 à la puissance 3 sera noté : 

x$=243 


Table des puissances de deux : voici un petit program- 
me qui sert à établir la table des puissances de 2. 


! TABLE 2.GFA 
! 
PRINT "Puissance", "2 à la puissance" 
PRINT 
FOR puissance%=0 TO 20 
PRINT puissance, 2*puissance* 
NEXT puissance* 


La table des puissances de 2 est éditée ci-dessous. Elle 
commence à la puissance 0 et se termine 
(arbitrairement) à la puissance 20 : 


Puissance 2 à la puissance 
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Établir une table des puissances de 2 est d’une 
simplicité désarmante, puisqu'il suffit de commencer par 
1 et de multiplier à chaque fois le résultat par 2. 


ATTENTION : en général, on oublie que 2 à la 
puissance 0 est égal à 1 : tout chiffre élevé à la 
puissance 0 est égal à 1. De même, il faut se souvenir 
que 2 à la puissance 1 est égal à 2 : N à la puissance 1 
est égal à N. 


Le kilooctet : cette table nous offre l’occasion d'une 
digression notoirement importante. Les puissances de 2 
s'infiltrent partout en informatique. Prenons-en un 
exemple simple et concret : la notation d’un kilooctet. 
Comme vous le savez, le préfixe "kilo" signifie 
ordinairement "mille" (un kilogramme = 1000 grammes ; 
un kilomètre = 1000 mètres, etc.). Vous êtes benoîtement 
prêt à en déduire qu'un kilooctet comporte 1000 octets... 


EH BIEN NON. Un kilooctet, par convention, c'est 2 à la 
puissance 10, c'est-à-dire, si vous consultez notre table, 
1024 octets ! La différence ne porte guère à 
conséquence, mais il est bon de savoir qu'un kilo “pèse 
plus lourd" en informatique. 


Notation d'un mégaoctet : un méga correspond à un 
million. Ordinairement. Vous avez deviné qu'il n’en est 
pas de même en informatique, puisque un méga 
correspond à 2 à la puissance 20, soit 1.048.576 octets. 


Vous comprenez pourquoi le ST 1040 a, en fait, 
1.048.576 octets ; et le 520 en comporte 2 à la puissance 
19, soit 524 288 octets ? 


Test des puissances de deux : pour vous permettre de vé- 
rifier vos connaissances, nous vous proposons un petit 
programme d’auto-évaluation. Il effectue le tirage au 
sort d’une puissance comprise entre 0 et 7, et vous 
demande d'appliquer cette puissance au chiffre 2. Par 
exemple, il vous propose la puissance 3, et vous 
demande combien font 2 à la puissance 3 (réponse : 8) : 


k PUISS 2.LST 
f Test des puissances de deux 
PRINT 
PRINT "* Test des puissances de deux *" 
puissance*=RANDOM (8) 1! Au hasard, Balthazar 
REPEAT 

encore*=TRUE 

PRINT 


PRINT CHR$ (27)+"p" 
PRINT "2 à la puissance ";puissance? 
PRINT CHR$ (27)+"q" 
INPUT reponse 
IF reponset-=2"puissance 
PRINT 
PRINT "Bravo !" 
ELSE 
ALERT 1,"Bah, voyons...",1,"Refaire|Réponse",ret$ 
IF ret$=1l 
encore*=FALSE ‘ 
ENDIF 
ENDIF 
UNTIL encoret 
PRINT 
PRINT XAX4X REPONSE LEE 
PRINT : 
PRINT "2 à la puissance ";puissancet;" = ";2puissance$ 


Conversion du binaire au décimal 


Nous allons continuer de nous intéresser aux octets, et 
tenter de comprendre comment un octet binaire peut être 
directement converti dans le nombre décimal qui lui 
correspond. En clair, je vous donne un octet écrit en 
binaire, et vous me donnez sa valeur numérique. 


Principe de conversion d'un octet : il y a quelques principes, 
qui vous mèneront infailliblement au résultat : 

- numéroter les colonnes de la droite vers la gauche, en 
commençant par zéro (ceci vous donne le numéro du 
bit, de 0 à 7); 

- mettre au-dessus de chaque colonne la puissance de deux 
correspondant au numéro du bit (de 1 à 128) ; 

- multiplier la valeur du bit (0 ou 1) par la puissance de 
deux notée au-dessus de la colonne ; 

- additionner chaque valeur obtenue. 


Voici un schéma récapitulant ce que nous venons d'énoncer : 
128 64 32168 4 2 1 <- 2 à la puissance numéro-du-bit 
7 6 5 4 3 2 1 O0 <- numéro du bit 


1 0 0 1 0 1 1 1<- octet 


Résultat : 128 * 1 = 128 
+ 64 *0=0 
+ 32 *0=0 
+ 16 *1= 16 
+ 8 *0=0 
+ 4 *1=4 
+ 2 *1=2 
+ 1 *1=1 


Somme = 128 + 16 + 4 + 2 + 1 = 151 


Avouez qu'il n'y a pas de quoi pousser mémère ! Inutile de 
préciser que nous avons noté les multiplications par zéro, 
dans cet exemple, mais qu'il est parfaitement superflu de le 
faire (dorénavant). 


Comment programmeriez-vous une telle conversion du 
binaire au décimal ? Voici notre réponse, sous forme d'un 


petit programme : 


? BIN DEC.GFA 

F Test de codage (binaire -> décimal) 
octet%=RANDOM(256) 
chn$="" 

PRINT 

PRINT "* Test de conversion d'une valeur *" 


! Variable chaîne globale 


PRINT "* binaire en valeur décimale *" 
enonce 
REPEAT 

encore*=TRUE 


INPUT "Valeur décimale équivalente "; reponses 
IF reponse*=octet 
PRINT 
PRINT "Bravo !" 
ELSE 
ALERT 1,"Bah, voyons...",1,"Refaire|Réponse",ret$ 
IF ret?=1 
encore*=FALSE 
ENDIF 
ENDIF 
UNTIL encore* 
PRINT 
PRINT "xkkx REPONSE *x**x1 
corrige 
END 
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PROCEDURE enonce cette expression peut signifier, l'explication vous sera donnée 
ÿ --- Globales : chn$, octet# - pour un prix modique - à la fin de cet article.) 
PRINT CHR$ (27)+"p" 
PRINT GUESS NEURONES DIE A Revenons à notre programme. Nous avons pris 
Chn$=STRINGS (8, "0")+BINS (octet3) arbitrairement la valeur 151, mais il est bien évident que la 
edit bin ÿ valeur qui vous sera demandée sera différente (tirage au sort 
PRINT CHRS (27) +"q" grâce à RANDOM). 


ATTENTION : rappelez-vous toujours que la numérotation 
PROCEDURE corrige des bits se fait de droite à gauche, c'est-à-dire dans le sens 
LOCAL i*, copie octet? contraire du sens habituel ; la première valeur (colonne de 
J --- Globale : octets - droite) porte le numéro 1. 
PRINT CHR$ (27)+"p" 
PRINT " 128 64 32 168 4 2 1 <- 2bit" Edition décimale d'une valeur binaire : le programme qui va 
PRINT CHR$ (27)+"q" suivre effectue la saisie d’un octet, écrit en binaire (par 
edit bin l'utilisateur), et le convertit en décimal. Vous devriez être 
PRINT capable de faire vous-même cette conversion, et de regarder 
copie _octeti=octett ensuite notre solution. Maïs attention, il faut effectuer une 
FOR i$=7 DOWNTO 0 Saisie binaire composée uniquement de 0 et de 1 ! 
IF octet?>=211% 
PRINT +01:291%; É ED DEC.GFA 
SUB octet$, 21% { Edition décimale d'une valeur binaire 
ENDIF PRINT 
NEXT i% PRINT Valeur binaire à éditer en décimal ?" 
PRINT " = ";copie octet? PRINT "* 8 bits seulement ! x 
“BIOS (2,2) PRINT 
M RETURN chn$="" | Variable chaîne de caractères globale 
! PRINT CHR$ (27)+"p" 
PROCEDURE edit_bin saisie bin(8) 
…._ LOCAL i% PRINT CHR$ (27)+"q" 
î --- Globale : chn$ longueur%=LEN (chn$) 
chn$=RIGHTS (chn$, 8) val+=0 
FOR i%=1 TO 8 jé=1 
PRINT " ‘";MID$(chn$,i%,1); FOR i*=longueur$-1 DONNTO 0 
NEXT i3 IF MID$ (chn$, j3,1)="1" 
PRINT | vali=val®+(211$) 
A RETURN ENDIF 
INC j$ 
“Ce programme a pour effet d'afficher sur votre écran un | NExT if 
résultat qui ressemble à ceci : PRINT 
PRINT Valeur décimale = ";valé 
* Test de conversion d'une valeur * F ; 
* binaire en valeur décimale * PROCEDURE saisie bin(n cart) |! Saisie contrôlée 
LOCAL tch$,car$, 19, ret 
4 90/20 TLM0KTDIE ê =-- Globale : chn$ 
LOT i$=1 
REPEAT 
Valeur décimale équivalente ? tch$=BIOS (2,2) 
car$=CHR$ (tch) 
151 IF ASC(car$)=13 |! Touche RETURN 
it=n carÿ+l 
Bravo ! : ELSE IF car$="0" OR car$="1" 
PRINT car$; 
**xkXx REPONSE *xxx chn$=chn$+cars 
INC i$ 
128 64 32 16 8 4 2 1 <- 2bit ELSE 
ALERT 3, "Des 0 et des 1 SVP !",1,"Ok...',rets 
LRONMBOMINONE ENT ENDIF 
UNTIL i$on car$ 
+ 128 + 16 + 4 + 2 + 1 = 151 PRINT 
RETURN 


7 
1 


6 5 
0 0 


“M De fait, vous verrez quelques différences sur votre écran, 
puisque notre programme fait appel à des séquences Escape, | Pour sortir de la saisie binaire, frappez la touche RETURN 
qui sont à l'origine de l'écriture de caractères en inverse | ou ENTER (elles ont le même code ASCII : 13). 
vidéo (blanc sur fond noir). Les séquences Escape apparais- 
sent comme ceci : Le coeur de ce programme, la conversion de la valeur 
binaire en valeur décimale, est plus facile à programmer que 
PRINT CHR$ (27)+'p" la saisie binaire elle-même. Si vous ne maîtrisez pas 
totalement cette routine de saisie, n’hésitez pas à y revenir 
(ne vous préoccupez pas pour l'instant, de savoir ce que | ultérieurement, elle n’est pas au centre du débat. 
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Ecrire la prochaine valeur binaire 


Votre formation à l'écriture binaire va progresser d'une 
étape. Notre objectif est simple : savez-vous écrire les valeurs 
binaires dans un ordre croissant ? Voici, pour cadrer le 
roblème, les cinq premières valeurs croissantes (pour simpli- 
er, nous avons supprimé les zéros inutiles, situés à gauche): 


0 

1 
10 
11 
100 


Pour vous aider, nous allons vous proposer une méthode 
très simple à retenir. Elle consiste à lire mentalement la suite de 
chiffres, comme s'il s'agissait de valeurs décimales (et non binaires). 
Par exemple, la liste précédente se lirait : "Zéro, un, dix, 
onze, cent,….”. 


Pour écrire la liste croissante, posez-vous cette question : 
quel est le chiffre immédiatement supérieur au précédent, 
mais s'écrivant uniquement avec des 0 et des 1 ? Nous 
pourrions poursuivre la liste en disant : "cent un, cent dix, 
cent onze, mille, mille un, etc.”. 


101 
110 
111 
1000 
1001 


Vous comprenez ce simplissime principe ? Voici l’occasion 
de vous tester grâce à un programme de notre au : 


DEFINT "a,z" ! Toutes variables entières 
PRINT 
PRINT ‘*#*kk: Test de codage binaire ***4*" 
PRINT 


PRINT "* Donnez la valeur immédiatement *" 
PRINT "* supérieure à celle présentée *" 


PRINT "* en utilisant uniquement 32 
PRINT "* des 0 et des 1 ! x" 
PRINT 

mini=1 ! Valeurs modifiables 


maxo=100 ! Ne pas dépasser 256 
PRINT ‘Valeur initiale = ";maxo 
PRINT 0 
val=mini 
REPEAT 
PRINT "Valeur immédiatement supérieure" 
PRINT "à (décimal = ";val;") :" 
PRINT 
PRINT CHRS (27)+"p"';BINS (val) ;CHR$ (27) +"q" 
PRINT " ?" 
chn$="" 
encore*-FALSE 
saisie bin (8) 
IF @conv bin dec=val+l 
PRINT 
PRINT "** Bravo ! On continue... **" 
PRINT 
INC val 
ELSE i 
ALERT 1,'"Bah, voyons. .",1,"Refaire|Réponse",rett 
IF ret$=2 # 
encore%=TRUE 
ENDIF 
ENDIF 
UNTIL val=maxo OR encore® 


PRINT 
PRINT MXkk REPONSE kkx" 
PRINT 
PRINT "Réponse correcte = ":BIN$S (val+1) 
END 
FUNCTION conv_bin dec 
LOCAL longueur?, valeur$, 3%, 1% 
E --- Globale : chn$ 
Longueur#=LEN (chn$) 
valeur+=0 
j4=1 
FOR i%=longueur$-1 DOWNTO 0 
IF MID$ (chn$, 3$,1)="1" 
ADD valeur$, 21% 
ENDIF 
INC j$ 
NEXT i% 
RETURN valeur$ 
ENDEFUNC 








































N'oubliéz surtout pas d'insérer la procédure ‘saisie bin’, 
abordée précédemment. Vous pouvez modifier à votre guise 
les valeurs de ‘mini et de ‘maxo’ qui sont les valeurs de 
début et de fin. Si vous utilisez GfA 2, supprimez la ligne 
d'instruction DEFINT, et placez le suffixe ‘œ' à la fin de 
chaque identificateur de variable entière. 


Retour sur les types 


Nous allons procéder à une récapitulation des types de 
variable disponibles en GfA 3. Essayez de ne pas tout 
embrouiller, ce n’est pas compliqué, mais on peut perdre 
pied ! 


Octet, mot court, mot long : les octets n’ont déjà presque plus 
de secrets pour vous. L'heure est venue de faire 
connaissance avec d’autres types de données : les mots 
courts et les mots longs. 


Le terme "mot court" est la traduction de "short word” ou 
plus simplement de "word" ; "mot long” est la traduction de 
“long word”, mais vous rencontrerez souvent le terme 
“integer" pour désigner un mot long (ce terme est la 
contraction de "long integer" qui signifie "entier long"). 
Puisque nous sommes dans les anglicismes, rappelons que 
"octet" se dit "byte". 


Par convention, quand on parle d'un “mot”, il est question 
d'un mot court. Un mot est composé de 16 bits. On peut 
donc considérer qu'il est assimilable à deux octets. Voici un 
schéma qui en donne une représentation cohérente avec nos 
descriptions précédentes : 

— 








22768 
16294 
s1s2 
sos 
2oasieza s12 286 128 64 32 16 © 4 à 


Hunére Bit 


1 «2 


ARMAPEP 11/18 5 8 7 6 5 43, 2 +0) Shimero bit 


SOLE TI EN art 


Schéma d'un not (16 bits) 








Tous les principes de calcul et de notation binaire, rencontrés 
jusqu'à maintenant, sont pleinement applicables. Vous vous 
souvenez que la valeur entière maximale, que l’on puisse 
représenter sur un octet, est égale à 255 ? (Mais si, 
rappelez-vous : un octet est composé de huit bits, la valeur 
maximale c'est donc : 128-+64+32+16+8+4+2+1 = 255.) 
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En suivant le même principe, la valeur maximale, 
représentable sur un mot, est égale à 65535. 


Calcul de la valeur maximale théorique d'un mot court : 
Mrappelez-vous de la méthode employée pour calculer la 
valeur maximale d’un octet. Elle s'applique à un mot, 
lequel fait appel à 16 bits, et donc à 16 valeurs (somme 


des 16 premières puissances de 2) : 


82768+16384+8192+4096+2048+1024+512+256+128+64+32 
1M+16+8+4+2+1 = 65535 


“Un entier est une quantité signée : il est pratique de disposer 
kde quantités signées. Ceci permet de représenter des 
Mquantités négatives, nulles ou positives, en fonction des cas. 

| 

LOr, la norme, créée par GfA, fait qu'un octet permet de 

représenter uniquement des valeurs entières, comprises entre 

0 et 255. En revanche, il a été décidé de donner un signe 
aux entiers courts (word) ou longs (integer). 


Par convention, pour représenter le signe, on utilise le bit 
Msitué à gauche (bit numéro 15). 


ÉC'est ainsi qu'un entier court (word) connaît des valeurs 
omprises entre -32768 et +32767. Vous pouvez donc 
eprésenter tout nombre entier, compris entre ces deux 

valeurs, y compris la valeur zéro. 


ATTENTION : par conséquent, un mot (word) n’est PAS 
Écompris entre 0 et 65535, comme on pouvait s’y attendre, 
mais entre -32768 et +32767 ! 


rque : si vous additionnez le nombre d'états possibles, en 
cluant la valeur zéro, vous obtenez bien : 32768+3276741 = 
536 (soit 2 à la puissance 16). 


“Les mots longs (integer) : ils sont composés de 32 bits, soit 

Mquatre octets, et permettent de représenter des quantités 
gnées. L’intervalle des valeurs possibles est compris entre 

102147483648 et +2147483647. Le suffixe employé est ‘4’. 


Mlableau récapitulatif : voici un tableau récapitulatif, qui doit 
ous prouver que tout n’est pas si compliqué. L'important, 
est que vous vous souveniez dans quels cas utiliser un 
entier plutôt qu'un autre : 
anglais suffixe taille mémoire maxi 
Moctet byte | 
“not MOrC & 
mot long integer % 
| 


8 bits (1 octet) 0 255 
16 bits (2 octets) -32768 +32767 
32 bits (4 octets) -2147483648 +2147483647 


Remarque : d'un point de vue théorique, rien n'empêche de 
représenter des quantités signées sur un octet. Nous 
pourrions donc y représenter des valeurs comprises entre 
-128 et +127 (le bit numéro 7 serait utilisé comme "bit de 
signe"), mais la convention utilisée par GfA n'utilise tout 
simplement PAS cette convention ! En GfA, un octet 
représente un entier compris entre 0 et 255. C'est comme ça. 


Les séquences escape 


Dans ce qui a précédé nous avons, sans vergogne, employé 
des séquences escape. Que recouvre ce terme aux 
connotations ouvertement anglo-saxonnes ? Voici une 
séquence escape : 


PRINT CHR$ (27)+"p! 


La touche ESC, en haut et à gauche de votre clavier, est la 
touche ESCAPE, le code ASCII qui lui correspond est le 
code ‘27’. Une séquence escape, c'est donc l'envoi du 
caractère escape, suivi d’un ou plusieurs caractères. Pour 
transmettre le caractère escape, il suffit d'employer CHR$(27), 
fonction qui renvoie un caractère (celui correspondant au 
code ASCII transmis). 


Soit, mais le second caractère de la séquence ? Ce second 
caractère dépend de conventions diverses et variées. Sur le 
ST, les lettres suivantes ont les effets suivants (c’est selon) : 


curseur vers le haut 

curseur vers le bas 

curseur vers la droite 

curseur vers la gauche 

activation curseur 

efface l'écran 

désactivation curseur 

curseur Home 

inverse vidéo (lettres blanches, fond noir) 
vidéo normale (lettres noires, fond blanc) 


©" Theo gJOxy> 


Vous avez reconnu les deux dernières séquences de cette 
liste (non exhaustive), puisqu'elles ont été employées dans 


nos programmes précédents. 


Dernière remarque avant la fin de noë émissions : ces 
séquences escape sont des ordres, donnés à ce qu'il est 
convenu d'appeler l'émulateur VT 52, qui n’est autre qu’un 
éditeur intégré. Cet éditeur pee de manipuler des textes, 
mais il se marie mal avec le graphisme. À employer avec 
circonspection ! 


Christophe Castro 





DANS LE COURANT DE L’ETE, ST MAGAZINE 


AURA SON TELECHARGEMENT ! 


RETROUVEZ LES SOFTS PRESSIMAGE ET FREEWARE, EN VOUS 
PROCURANT LE SOFT DE TELECHARGEMENT A LA BOUTIQUE DE 
PRESSIMAGE. NOUS LE DIFFUSONS POUR LA MODIQUE SOMME 


DE 15 FRANCS PORT COMPRIS. 


PEU. 


IL SERA DISPONIBLE, D'ICI 


3615 STMAG 


010.0 -O*0:0LÉÉ @0 OL 0-00 


OO CHE Se Len 





STOS PRATIQUE (8) 


Tiens? Revoilà la rubrique STOS! Elle se faisait rare ces | 10 rem "mm ER 
() derniers mois. Quelques petits problèmes militaires | 11 rem Demo draw 2 


SRE 


m'ont en effet empêché d'utiliser mon ordinateur... 12 rem Par P.J.Hickman 
(merci mon colonel! 19 gem "en esen 
O 20 key off : mode 0 : curs off : flash off : hide on 
STOS TRUCS/STOS TRUCS/STOS TRUCS/STOS TRUCS | 30 rem Cycle les couleurs 
40 A$=" (000,1) (100,1) (200,1) (300,1) (400,1) (500,1) (600,1) 
(à) Les nouvelles ROM 1.62 (700,1) (600,1) (500,1) (400,1) (300,1) (200,1) (100,1)" 


Atari vient encore de frapper avec de nouvelles | 50 for N=1 to 15 : flash N,A$ : wait vbl : next 
O nouvelles ROM! Bien entendu le STOS ne fonctionne | 60 : 

plus (et, je pense, ne sera pas le seul !). Mais pas de | 70 rem Definition des variables 

panique, je suis en train d'écrire un petit programme | 80 TH#=2*pi 
O domaine public qui fera l'adaptation. Vous pourrez très | 90 XCENTER-151 

bientôt le télécharger sur le 3615 SIMAG. Bon c'est pas 100 YCENTER=93 

tout ça, mais il faut que je trouve quelqu'un qui | 110 R1=115 
@) possède ces fameuses nouvelles-nouvelles Roms pour | 120 R2=85 


pouvoir faire l'adaptation! 130 R3=40 
140 R4=45 
(©) A propos des versions. 150 Ik=pi/8 : 12#=pi/20 


La dernière version du STOS est la version 2.5. Le | 160 i2#-=pi/20 
programme de chargement (BASIC205.PRG) affiche juste | 170 C=1 
@ avant de passer au basic la dernière version de la ROM | 180 : 
avec laquelle le STOS fonctionne. C'est-à-dire TOS 1.6 | 190 rem Boucle principale 
jusqu’à ce jour. Cela ne veut pas dire que le STOS ne | 200 for T#=0 to TW# step If 
) fonctionne qu'avec le TOS 1.6, mais avec toutes les | 205 for T24=0 to TN step 12# 








| versions JUSQU'’AU 1.6! 210 X1#=R1*cos (T2#) +XCENTER 
| O 220 Y1#=R2*sin (T2#)+YCENTER 
| DEMOS DRAW 230 X2#=R3*cos (T#)+XCENTER 


Voici trois petites démonstrations utilisant DRAW et une 240 Y2#=R4*sin (T#) +YCENTER 
































| @) rotation de couleurs, écrites par Peter J. Hickmann, un 250 ink C 
| confrère anglais. Vive l'Europe! Amusez-vous à modifier 260 draw X1#,Y1# to X2#,Y2# 
| les constantes de dessin, les résultats sont assez étonnants! | 270 C=C mod 15+1 
| O 280 next T2# : next T# 
| 10 rem =" 290 : 
| 11 rem Demo draw 1 300 wait key : default 
| O 12 rem Par P.J.Hickman 
13/rem -------"-----------2 TT 10 rem -----------"----""2TT2T0T0 TT 
| 20 key off : mode 0 : curs off : flash off : hide on 11 rem Demo draw 3 
| 6) 30 rem Cycle les couleurs 12 rem Par P.J.Hickman 
| 40 A$=" (000,1) (001,1) (002,1) (003,1) (004,1) (005,1) (006,1) 13 rem -------------——T TT 
| (007,1) (006,1) (005,1) (004,1) (003,1) (002,1) (001,1)" 20 key off : mode 0 : curs off : flash off : hide on 
| O 50 for N=1 to 15 : flash N,A$ : wait vbl : next 30 rem Cycle Les couleurs 
| 60 : 40 A$=" (000,1) (110,1) (220,1) (330,1) (440,1) (550,1) (660,1) 
O 70 rem Definition des variables (770,1) (660,1) (550,1) (440,1) (330,1) (220,1) (110,1)" 
80 TW#=2*pi 50 for N=1 to 15 : flash N,A$ : wait vbl : next 
90 XCENTER=151 60 : 
| @) 100 YCENTER=93 710 rem Definition des variables 
110 R1=150 80 TW#=2*pi 
120 R2=35 90 XCENTER=151 
€) 130 R3=65 100 YCENTER=93 
| 140 R4=85 110 R1=100 
| 150 I#=pi/512 120 R2=85 
| C) 160 sert=pi/3 150 IH=pi/640 
170 C=1 160 LOBES#=3 
180 : 170 C=1 
6) 190 rem Boucle principale 180 : 
200 for T#=0 to TW# step If 190 rem Boucle principale 
210 X1#=R1*cos (T#) +XCENTER 200 for T#=0 to TWX step If 
O 220 Y1#=R2*sin (T#) +YCENTER É 205 X1H=R1*cos (T#*LOBES#) +XCENTER 
| 230 X2#=R3*cos (T#+SET#/0.2)-+XCENTER 210 Y1#=R2*sin (T#)+YCENTER 
| 240 Y2#=R4*sin (T#) +YCENTER 220 ink C 
O 250 ink C ; 230 draw XCENTER, YCENTER to x1#,Y14 
| 260 draw X1#,Y1# to X2#,Y2# 240 C=C mod 15+1 
O 270 C=C mod 15+1 250 next T# 
280 next T# 290 : 
2900: 300 wait key : default 
O 300 wait key : default 
} 
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Les codes de contrôle texte 


Le STOS basic communique avec la routine de gestion 
des fenêtres (et du texte en général) par l'intermédiaire 
de codes de contrôle, ou si vous préférez de CHRS(). 
Ainsi, l'instruction HOME se contente d'envoyer le code 
31 aux fenêtres... 


: un mot vers la gauche 

: un mot vers la droite 

: Curseur vers la gauche 

: Scrolling vers le haut 

: Scrolling vers le bas 

: Return (va à la fin de la ligne REELLE, en ‘ 
comptant les caractères insérés); 

: Delete 

: BackSpace 

: Curseur vers la droite 

: Curseur vers le bas 

: Curseur vers le haut 

: Clw 

: Retour chariot 

: Writing 1 

: Writing 2 

: Writing 3 

: Apparition du curseur 

: Arrêt de l'inverse vidéo 

: Arrêt des caractères ombrés 

: Arrêt du curseur 

: Mise en marche inverse vidéo 

: Mise en marche des caractères ombrés 

: Autorisation des scrollings 

: Positionne le curseur à la fin de la ligne 

: Scroll off 

: Delete 

: Echappement 

: Mise en marche de l'insertion 

: Arrêt du soulignement 

: HOME 

: Mise en marche du soulignement 


ZENITH! 


Dans la dernière rubrique, nous avons ajouté l'éditeur 
de terrain à ce fabuleux programme. Pour le rendre 
encore plus fabuleux, nous allons ce mois-ci ajouter un 
éditeur des blocs constituant le terrain : une sorte de 
mini Degas (mais alors vraiment mini!). Zénith! est un 
développement ‘en direct, en voici la preuve : il va 
vous falloir remplacer certaines parties du programme 
pour permettre l'insertion de l'éditeur de bloc. 
Commençons par la routine de lecture des datas des 
menus éditeur. Nous allons avoir besoin d’un autre 
menu, il faut donc ajouter une dimension au tableau de 
stockage des menus. Tapez : 


Delete 600-650 <return> 
Puis 


600 dim M X(2,15),M Y(2,15),M M$(2,15),M GO0(2,15),M MAX (2) 
605 restore 52000 : NM=0 
610 inc NM : M MAX(NM)=1 
615 read T : if T>0 then M X(NM,M MAX (NM) )=T : 
read M Y(NM,M MAX(NM)),M M$ (NM,M MAX(NM)), 
M GO(NM,M MAX(NM)) : inc M MAX(NM) : goto 615 
L 620 dec M MAX (NM) 
625 if T=-0 then 610 


Il s’agit pratiquement de la même routine en deux 
dimensions. La fin d’un menu est marquée par un 0, la 
fin de tous les menus par un -1. Autre partie ayant subi 
des modifications, l’initialisation de l'éditeur de terrain : 


Delete 4000-4190 <return> 
Puis: 


4000 hide on : auto back off : update off 

4005 DTERRAIN=start (PUZZLE)-+NBLX*NEBLY*2 : 
FTERRAIN=start (PUZZLE) +NBLX*NBLINE*2 

4010 ADJOUEUR=DTERRAIN : BL=0 

4024 rem > Dessin du terrain 

4025 logic=TRAVAIL 

4030 screen copy FOND to logic , 

4035 ink 0 : bar 1,YHO to XGOCH-2, YBA-2 : 
bar XDROI+1,YHO to 318,YBA-2 

4040 reset zone 

4045 NM=1 : gosub 12050 

4050 logic=back 

4055 set zone 100,XGOCH, YHO to XDROI-1, YBA-1 

4060 set zone 101,XDROI+16, YHO+22 to 
XDROI+16+32,YHO+22+16 

4065 gosub 12400 

4070 gosub 12100 

4075 OLDZM=0 

4100 repeat 

4105 XM=x mouse : YM=y mouse : KM=mouse key 

4110 sprite 1,XM,YM,3 : redraw : ZM=zone(1) : 
screen copy TRAVAIL to logic 

4111 if ZM=101 and KM=1 then 7000 

4115 if ZM=100 and KM<>2 then 
screen copy BOUTS,XB,YB,XB+16,YB+16 to 
logic,XM, ((YM-YHO) and $FFF0)+YHO : ink 3 : 
set mark 6,32 : polymark XM,YM 
if ZM<>100 or KM=2 then ink 3 : set mark 2,32 : 
polymark XM,YM 
if ZM=100 and KM=2 then ink 3 : set mark 5,32 : 
polymark XM,YM 
logic=TRAVAIL 
if ZM=100 then XT=(XM-XGOCH)/16 : 
YT= (ADJOUEUR-DTERRAIN) / (NBLX*2)+(YBA-YM-1) /16 : 
locate 1,20 : print "X:":XT;" "; : locate 1,21 : 
print CE ENLER AL Le £ 

4140 if ZM<100 then locate 1,20 : print " Ve 
locate 1,21 : print " We 

4145 if ZM=OLDZM then 4160 / 

4150 if OLDZM then I=0 : N=OLDZM : gosub 12000 : OLDZM=0 

4155 if ZM and (ZM<100) then I=1 : N=Z2M : gosub 12000 : 
OLDZM=ZM 

4160 logic=back : screen swap : wait vbl 

4165 until KM<>0 and ZM<>0 

4170 if ZM<>100 then gosub M GO(NM,ZM) : goto 4100 

4175 gosub 4500 : goto 4100 


Les changements par rapport à la version précédente 
sont : 


- Regroupement de la partie “initialisation de l'éditeur" 
après les lignes 4025; 

- Utilisation d’une routine de dessin du menu, en 12050, 
NM contenant le numéro du menu à afficher: 

- Passage à deux dimensions des tableaux de menu; 

- Ajout d'une nouvelle zone de test (numéro 101) au 
niveau du bloc courant. En cliquant sur ce bloc, on 
passera à l’éditeur de blocs; 

- Un nouveau (et plus beau) pointeur lorsque l’on 
dessine le terrain... 
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Continuons les changements: 
Delete 12000-12050 
Puis: 


12000 X1=xgraphic (M X(NM,N) )-4 l Yi=ygraphic(M Y(NM,N) ) -4 
12005 X2=X1+len(M M$ (NM, N))*8+7 : Y2=Y1+15 

12010 ink 1 : if I then inverse on else inverse off 
12015 box X1,Y1 to X2,Y2 

12020 locate M X(NM,N),M Y(NM,N) : print M M$ (NM,N); 
12025 inverse off : return 

12047 rem-----------"----------- nn 

12048 rem Editeur: dessin du menu NM 

12049 rem----------"-"---""--- nt 

12050 1=0 

12055 for N=1 to M MAX (NM) 

12060 gosub 12000 

12065 set zone N,X1,Y1 to X2,Y2 , 

12070 next N 

12075 return 


Rien de bien compliqué ici : le passage à deux 
dimensions de la routine 12000, et une nouvelle routine 
dessinant automatiquement le menu NM (12050)... 


Voici maintenant le corps de l'éditeur de blocs : 


6997 rem----------------""-"""""TTTTT" 
6998 rem Editeur de blocs 
6999 rem-----------------""2T20T777" 
7000 CINK=1 : CPAT=20 : XXBL=XGOCH+16 : YYBL=YHO+16 
7005 CLX=XDROI+16 : CLY=YHO+22 
7010 MZM=5 : XZM=160-MZM*8 : YZM=YHO+16 
7024 rem > Init de l'ecran 
7025 logic=TRAVAIL : screen copy FOND to logic 
7030 ink 0 : bar XGOCH, YHO to XDROI-1, YBA-1 
7035 reset zone 
7040 NM=2 : gosub 12050 : OLDZM=0 
7045 ink 1 : set paint 2,10,1 : 
bar XZM-8,YZM-8 to XZM+MZM*16+8, YZM+MZM*16+8 
7050 set paint 1,1,0 
7055 for C=0 to 15 : X=XGOCH+C*12 : Y=YBA-16 : ink C : 
bar X,Y to X+12,YBA-1 : 
set zone 50+C,X,Y to X+11,YBA-1 : next 7060 gosub 7250 
7065 set zone 100,XZM,YZM to XZM+MZM*16-1, YZM+MZM*16-1 
7070 logic=back : screen copy TRAVAIL to back 
7075 gosub 12400 : gosub 7300 
7095 set zone 100,XZM, YZM to XZM+MZM*16-1, YZM+MZM*16-1 
7100 repeat 
7105 XM=x mouse : YM=y mouse : KM=mouse key 
7110 sprite 1,XM,YM,3 : redraw : ZM=zone (1) : 
screen copy TRAVAIL to logic 
7115 if ZM<100 then ink I : set mark 2,32 : 
polymark XM,YM 
7120 if ZM=100 and KM©2 then ink I : 
polymark XM,YM 
7125 if ZM=100 and KM=2 then ink I : 
polymark XM,YM 
7130 inc I : I=I mod 16 
7140 logic=TRAVAIL 
7145 if ZM=OLDZM then 7160 
7150 if OLDZM then I=0 : N=OLDZM : gosub 12000 : OLDZM=0 
7155 if ZM and (ZM<50) then I=1 : N=ZM : gosub 12000 : 
OLDZM=ZM 
7160 logic-back : screen swap : 
7165 until KM<>0 and ZM@0 
7170 if ZM<50 then gosub M_GO (NM, ZM) : goto 7100 
7175 if ZM=100 then 7200 
7180 if ZM<99 then CINK=ZM-50 : gosub 7325 : 
goto 7100 


set mark 4,2 : 


set mark 3,2 : 


wait vbl 





7185 inc CPAT : if CPAT>24+12 then CPAT=1 
7190 gosub 7325 : goto 7100 
7200 XX=(XM-XZM) /MZM : YY=(YM-YZM) /MZM 
7205 CI=CINK : if KM=2 then CI=0 
7210 if ACT$C>"Plot" and KM=2 then gosub 7250 : 
while mouse key : wend : goto 7100 
7215 gosub ACTION : goto 7100 
7249 rem > Plot 
7250 ACTION=7255 : ACT$="Plot" : gosub 7325 : return 
7255 logic=TRAVAIL : ink CI : set paint L,1;Qu: 
bar XZM+XX*MZM, YZM+YY*MZM to 
XZM+ (XX+1) *MZM-1, YZM+ (YY+1) *MZM-1 
7260 plot XDROI+16+XX, YHO+22+YY : 
plot XDROI+32+XX, YHO+22+YY 
7265 logic=BOUTS : plot XB+XX, YB+YY 
7270 logic=back : return 
7299 rem > Zoom du bloc 
71300 zoom TRAVAIL, CLX,CLY,CLX+16, CLY+16 to 
TRAVAIL, XZM, YZM, XZM+MZM*16-1, YZM+MZM*16-1 
7305 clip 0,0 to 319,199 : return 
71309 rem > Bloc precedent 
7310 gosub 4350 : gosub 7300 : return 
7314 rem > Bloc suivant 
7315 gosub 4375 : gosub 7300 : return 
71324 rem > Changement de couleur / Impression action 
71325 if CPAT<=12 then CPAT1=2 : CPAT2=CPAT else 
CPATI1=2 : CPAT2=CPAT-12 
7330 logic-TRAVAIL : ink CINK : set paint CPAT1,CPAT2, 1 : 
bar 4,177 to XGOCH-4,196 : 
set zone 99,4,177 to XGOCH-4, 196 
7335 pen 1 : locate 2,23 : print ACT$; 
7340 cls TRAVAIL, 0, XXBL, YYBL to XXBL+16, YYBL+16 : 
if BL$<>'" then screens (TRAVAIL, XXBL, YYBL) =BL$ 
7345 logic=back : return 
7349 rem > Routine generale ACTION 
7350 ACTION=7355 : ACT$=ACT1$ : gosub 7325 : return 
7355 X1=XX : YI=YY : while mouse key : 
wend 7360 ACTION=7365 : 
ACT$S=ACT2$ : gosub 
7325 : return 
7365 logic=TRAVAIL : clip CLX,CLY to CLX+16,CLY+16 
7370 ink CI : gosub ACT 
71375 while mouse key : wend 
7380 screen copy TRAVAIL, CLX, CLY, CLX+16,CLY+16 to 
BOUTS, XB, YB 
71385 gosub 12400 : gosub 7300 : logic=back 
7390 while mouse key : wend 
7395 goto 7350 
7399 rem > Lignes 
7400 ACT1$="Li.1" : ACT2$="Li.2" : ACT=7405 : goto 7350 
7405 draw CLX+X1,CLY+Y1 to CLX+XX, CLY+YY : return 
7424 rem > Box 
7425 ACT1$="Bo.1" : ACT2$="Bo.2" : ACT=7430 : goto 7350 
7430 box CLX+X1,CLY+Y1 to CLXHXX, CLY+YY : return 
7449 rem > Bar 
7450 ACT1$="Ba.1" : ACT2$="Ba.2" : ACT=7455 : goto 7350 
7455 set paint CPAT1,CPAT2,1 : bar CLX+X1,CLY+Y1 to 
CLX+XX,CLY+YY : return 
7474 rem > Disc 
7475 ACT1$="Di.1" : ACT2$="Di.2" : ACT=7480 : goto 7350 
7480 DX=XX-X1 : DY=YY-Y1 : =sqr (DX*DX+DY*DY) 
7485 if R then circle CLX+X1,CLY+Y1,R 
7490 return 
7499 rem > Clr 
71500 ACTI$="C1r?" : ACT2$="Ok!!" : ACT=7505 : goto 7350 
71505 cls TRAVAIL, 0,CLX,CLY to CLX+16,CLY+16 : return 
71524 rem > Pousse le bloc 
1525 BL$=screen$ (TRAVAIL, CLX,CLY to CLX+16,CLY+16) : 
gosub 7325 : return 
1549 rem > Copie le bloc 
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n 7550 if BL$<>'" then screen$ (BOUTS, XB, YB)=BLS : 

gosub 12400 : gosub 7300 

7555 return 

7574 rem > Voir 

1575 gosub 12100 : screen copy TRAVAIL to physic 

71580 while mouse key : wend : repeat : until mouse key 

1585 pop : goto 7025 

7599 rem > Editer 

7600 pop : clip 0,0 to 319,199 : goto 4025 

7649 rem > Symetrie gauche/droite 

7650 logic=TRAVAIL 

7655 for Y=0 to 15 

7660 for X=0 to 15 

7665 plot CLX+16-X,CLY+Y, point (CLX+16+X, CLY+Y) 

7670 next X 

7675 next Y 

7680 screen copy TRAVAIL, CLX,CLY, CLX+16,CLY+16 to 
BOUTS, XB, YB 

7685 gosub 12400 : gosub 7300 : logic=back 

7690 return 

7699 rem > Symetrie haut/bas 

M 7700 for Y=0 to 15 

7705 screen copy TRAVAIL,CLX+16,CLY+15-Y,CLX+32,CLY+16-Y 
to TRAVAIL, CLX,CLY+Y 

M 7710 next Y 

h 7715 goto 7680 


k Et enfin les nouveaux datas définissant le menu de 
l'éditeur de blocs : 


M 52060 data 0 

1" 52100 data 1,YHO/8+1," 
M 52105 data 1,YHO/8+3," 
« 52110 data 1,YHO/8+5," 
k 52115 data 1,YHO/8+7," 1,7475 

52120 data 1,YHO/8+9," 1,7500 

M 52125 data 1,YHO/8+11," STOC ",7525 

1 52126 data 1,YHO/8+13," RECU ",7550 

52130 data XDROI/8+1,YHO/8+1," ++++ ",7310 
52135 data XDROI/8+1,YHO/8+7," ---- ",7315 
52140 data XDROI/8+1,YHO/8+10, "G<==>D", 7650 
52145 data XDROI/8+1,YHO/8+12,"H<==>B", 7700 
52150 data XDROI/8+1,YHO/8+14," VOIR ",7575 
52155 data XDROI/8+1,YHO/8+16," EDIT ",7600 
“52160 data-1 


",7400 
",7425 
",7450 


Utilisation: 


Sous l'éditeur de terrain, cliquez sur le bloc sélectionné 
(en haut à droite de l'écran), et vous passez à l'édition 
du bloc proprement dit : 

- La sélection du bloc édité se fait comme toujours en 
cliquant sur + et - . Notez le ralentissement dû au 
ZOOM; 

MM- Vous dessinez avec le bouton gauche de la souris, et 
M cffacez avec le bouton droit; 

“- Vous choisissez la couleur courante en cliquant dans 
M la palette. La couleur sélectionnée, le motif de 
Mremplissage des surfaces ainsi que le mode graphique 
“en fonction sont affichés en bas à gauche de l'écran; 

- Vous sélectionnez une fonction graphique en cliquant 
sur le bouton correspondant. Le fonctionnement de ces 
Mfonctions est simplifié pour ne pas trop alourdir le 
h programme, et se scinde en deux temps : premier 
Mtemps, vous cliquez sur le point ORIGINE de la 
fonction graphique, puis, deuxième temps, vous cliquez 
sur le point DESTINATION. Le programme dessine la 
fonction et revient au premier temps. Vous pouvez à 
hiout moment revenir en mode PLOT en cliquant à 
k droite. 


Pour effacer le bloc, cliquez sur CLR, puis DEUX FOIS 
sur le dessin. 

Le bouton G<:>D effectue une symétrie horizontale, le 
bouton H<->B une symétrie verticale. 

Vous pouvez mémoriser le bloc courant en cliquant sur 
STOCker. Le bloc s'affiche alors à côté de la zone 
zoomée. Pour rappeler le bloc, cliquez sur RECUpérer. 
Notez que la couleur zéro est transparente. Cette 
fonction est très pratique pour créer de nombreuse cases 
-presque- identiques! 


Le bouton VOIR affiche le terrain avec les nouveaux 
blocs. Cliquez pour revenir à l'éditeur. Le bouton EDIT 
permet de retourner à l'édition du terrain. 


EXPLICATION DU PROGRAMME 


7000-7100 : Initialisation de l’écran et du menu. 

7010 - définitiôn des paramètres du ZOOM. Vous 
pouvez en modifier la taille en changeant le facteur de 
multiplication MZM et le monter jusqu’à 7. Attention, 
cela ralentit le programme! 

7055 - dessin de la palette, et création des zones 
de test 50 à 65, une pour chaque couleur. 

7060 - appel de la routine d'initialisation du mode 
PLOT. 

7075 - copie et zoom du bloc courant. 


7100-7200 : la boucle principale de l'éditeur, similaire à 
celle de l'éditeur de terrain (pourquoi changer ce qui 
fonctionne !). 

7130 - la souris est ici aussi indiquée à l’aide d’un 
POLYMARKer, mais en en changeant régulièrement la 
couleur, pour éviter de la confondre avec la couleur de 
dessin. 

7170 - on a cliqué! Une zone inférieure à 50 est 
une zone du menu. 

7175 - la zone 100 correspond au ZOOM. 

7180 - les zones comprises entre 50 et 99 sont les 
zones de la palette. Le calcul de la couleur pointée est 
une simple soustraction. 

7185 - la zone 101, la dernière, permet de modifier 
le motif de remplissage. CPAT contient le motif courant, 
de 1 à 36. 


7200-7250 : entrée des routines graphiques. 

7200 - calcul de la coordonnée pointée par la 
souris. 

7210 - un appui sur la touche de droite permet de 
sortir des fonctions graphiques. 

7215 - ACTS contient le libellé de la fonction 
graphique en action, ACTION contient le numéro de la 
ligne de traitement. Par ce Gosub transitent toutes les 
fonctions LINE, BOX, BAR, DISC etc. 


7250-7300 : la routine de plot. 

7250 - mise en route. ACTION pointera sur la 
ligne suivante. Cette ligne sera appelée chaque fois que 
vous cliquerez dans la zone de zoom. 

7255 - la routine proprement dite. Nous devons 
dessiner chaque point 4 fois! La première fois, zoomée. 

7260 - dessin du deuxième point (dans le bloc 
courant de gauche) et du troisième (dans le bloc 
courant de droite). 

7265 - et le plus important, dans l'écran contenant 
les blocs. 


7300-7305 : le zoom du bloc courant. 


7310-7315 : sélection du bloc précédent / suivant. 
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Comme nous sommes malins (si, si!) nous appelons la 
routine de l'éditeur de terrain qui fait le plus gros 
travail pour nous. Il ne reste qu'à zoomer le nouveau 
bloc. 


7325-7350 : dessin de la case d’information de du 
programme. 

7325 - CPAT contient le motif de dessin courant, 
de 1 à 36. Or l'instruction SET PAINT désire DEUX 
paramètres: le premier indique un motif de points (2) 
ou de lignes (3), le second le numéro de ce motif. Cette 
ligne calcule les deux paramètres CPATI et CPAT2. 

7340 - si un bloc est mémorisé, il est affiché à côté 
du zoom. 


7350-7400 : routine générale de dessin. Par cette portion 
de code transitent les fonctions graphiques. 

7355 - Initialisation de la première phase d'une 
fonction : on affiche la fonction (ACT$=ACTI1$), et on 
fait pointer ACTION sur la ligne suivante. Rien de plus. 

7360 - au prochain clic, le programme passera par 
cette ligne. Elle se borne à stocker le coordonnées de la 
souris dans des variables temporaires X1 et Y1, et à 
attendre le relâchement de la souris. 

7365 - passage à la deuxième partie du la fonction 
en utilisant la même méthode qu'en 7355. 

7370 - nous sommes en train de cliquer pour la 
deuxième fois. ACT contient l'adresse de la routine à appe- 
ler pour faire le dessin (ne pas confondre avec ACTION 1}: 
Par exemple pour une simple ligne, ACT est égal à 7400. 





7380 - on recopie le bloc modifié dans l'écran de 
puzzle. 
7385 - on zoome! 


7400-7575 : les routines graphiques elles-mêmes. 


7600-7605 : on revient à l’éditeur de terrain. Notez le 
POP qui dépile l'appel de la fonction elle-même. Oublier 
de le mettre constituerait le type même de "bug" difficile 
à déceler. S'il n'était pas présent, une adresse de 
RETURN serait empilée à chaque retour à l'éditeur. Il y 
a de fortes chances pour que rien ne se passe en utilisa- 
tion normale du programme, le STOS acceptant jusqu'à 
20 adresses empilées. Une utilisation intensive révèlerait 
ce bug : le magnifique terrain sur lequel vous travaillez 
depuis quatre heures serait perdu ! 

Puis, on se rebranche en 4025, pour une réinitialisation 
de l'écran. 


Voilà pour aujourd’hui ! Maintenant il ne reste "qu'à" 
dessiner quelques dizaines de blocs! Dans le prochain 
article, nous reviendrons au jeu avec l'animation des 
ennemis. En attendant, STOSSEZ BIEN! 


François LIONNET 


PROGRAMMER EN 
OMIKRON (V) 


Continuons notre "saga" avec l'exploration, ce mois-ci, 
des "Fonctions", puis nous passerons au graphisme et 
aux instructions qui l’accompagnent: 


1.13. LES FONCTIONS 


113.1. LES FONCTIONS MONOLIGNES 


La fonction est en fait un cas particulier de la 
procédure. Son emploi est plus facile car la fonction est 
une procédure qui retourne toujours un seul paramètre. 
Voyons tout de suite ce que donne la procédure Mul 
(vue au chapitre précédent) en fonction : 


DEF FN Mul(A,B,C,D)=A*B*CxD 


Nous venons de définir la fonction qui calcule Île 
produit de 4 nombres, une fois définie vous pouvez 
l'utiliser dans votre programme comme bon vous 
semble. Vous pourrez faire par exemple : 


INPUT "Entrez quatre nombres: ";N,0,P,Q 
PRINT FN Mul(N,0,P,Q) 

A=FN Mul(N,0,P,Q)*FN Mul (N+1,0,0,0) 
PRINT À 

END 

DEF FN Mul(A,B,C,D)=A*B*C*D 


Une fois la fonction Mul définie, l'expression FN 
Mul(<Var>, <Var>, <Var>, <Var>) se comportera 
exactement comme une variable, c'est-à-dire que vous 
pourrez l'utiliser partout où vous pouvez utiliser une 
variable qui ne serait que lue (car, en effet, on ne peut 
pas faire FN Mul(1,1,1,1)=1 ni d’ailleurs FN 
Mul(2,2,2,2)=458 !). 


Il est bien sûr possible de faire une fonction avec des 
chaînes (à la place des variables numériques), comme 
par exemple : 


DEF FN A$ (nombre)="a"*Nombre 


ici FN A$(5) sera égal à ‘aaaaaa’ 


Exercice : réalisez une fonction qui aura une chaîne 
comme paramètre en entrée et qui nous retournera cette 
chaîne précédée d’un certain nombre d'espaces afin 
qu'elle soit centrée à l'écran (il s’agit ici en fait de faire 
la procédure Center vue précédemment en fonction). 


Réponse : 


DEF EN Center (Ac$)=SPACES (80-LEN (Ac$) / 2+Ac$ 


RQ à 


113.2. LES FONCTIONS MULTILIGNES 


Il arrive fréquemment que le calcul du paramètre de 
retour soit beaucoup plus compliqué, donc que la 
fonction elle-même soit plus compliquée (qu'elle 
comporte des tests, des boucles, etc!}. Dans ce cas, une 
seule ligne ne suffit pas et nous avons donc besoin des 
fonctions multilignes. Regardons la fonction Mul, vue 
précédemment, définie sur plusieurs lignes. 


DEF FN Mul(A,B,C,D) 
Resultat=A*BxC*D 
RETURN Resultat 


ou encore : 


DEF FN Mul(A,B,C,D) 
RETURN A*B*C*D 


Il existe deux différences avec les fonctions en une seule 
ligne : 

--> il n’y a pas de signe égal après le DEF EN ; 

—> on indique ce qu'il faut retourner après le RETURN ; 


Une fonction monoligne du type : 
DEF FN Nom(parametres)=expression 
peut être écrite en multiligne comme ceci : 


DEF FN Nom(paramètres) 
à RETURN expression 


Exercice : faites une fonction qu'on appellera Codes, 
; ‘4 PES ; 
. qui vous donnera ‘code correct’ si le paramètre est égal 
à 11170 et qui vous renverra ‘code incorrect’ sinon. 


Réponse : 


… DEF FN Codef (code) 
IF Code=11170 THEN 
R$="code correct" 
ELSE 
R$="code incorrect" 
ENDIF 
Ë RETURN R$ 


b Cette fonction s’appellera donc Codef, on l’appellera 
avec un paramètre numérique. Si ce paramètre est 11170, 
Melle mettra dans R$ la chaîne ‘code correct’ sinon elle 
h mettra dans R$ la chaîne ‘code incorrect’. Enfin, elle 
N retournera R$. C'est-à-dire que dans le programme FN 
Code$(Nombre) elle sera soit équivalente à Code 
h correct soit équivalente à Code incorrect selon la valeur 
k de Nombre. 


. 1.14. ETIQUETTE, GOTO ET DATAS 


Les étiquettes (ou labels) sont des repères que l'ont 
peut placer à n'importe quel endroit d'un programme et 
qui servent à le situer facilement. L'instruction GOTO 
permet que l'exécution du programme se poursuive à 
un autre endroit. Un exemple : 


h -Saisie Nombre 
JM INPUT "Entrez un nombre de 1 à 9: ‘;Nombre 
IF Nombre<1 Or Nombre>9 THEN GOTO Saisie Nombre 


L'étiquette Saisie Nombre indique l'endroit où se trouve 
la saisie. 

Important : le nom d’une étiquette est toujours précédé 
d'un ‘-’. En effet, sans ce ‘il n'y à pas de différence 
entre une étiquette et un appel de procédure. 

Important ‘2° : il faut prendre garde à ne pas mettre de 
-" quand on se rend à l'étiquette. Par exemple, GOTO 
-Alpha n’est pas un saut correct, vous obtiendrez une 
erreur. Il faut faire GOTO Alpha. 


L'instruction GOTO va entraîner un saut à l'instruction 
qui suit l'étiquette indiquée. Ici, GOTO Saisie Nombre 
va entraîner l'exécution du INPUT à nouveau. Mais il 
fortement déconseillé d'utiliser trop de GOTO. Bien 
souvent, il existe un moyen plus simple que le GOTO. 
Dans notre exemple, un REPEAT..UNTIL serait en fait 
plus pratique. 


En règle générale, nous vous conseillons d'utiliser au 
maximum les instructions structurantes, comme 
REPEAT...UNTIL, WHILE..WEND et les procédures, qui 
rendent le programme bien plus lisible. Rapidement, 
avec des GOTOS, vous ne saurez plus quelle partie de 
votre programme fait quoi, appelle quoi, et vous serez 
donc vite perdu ! 


L'instruction DATA, quant à elle, sert à inclure des 
données dans vos programmes. Voici un exemple : 


RESTORE Nombres Premiers 
FOR I=1 TO 5 
READ A 
PRINT ‘Le nombre premier numéro ";1;" est ';A 
NEXT I ; 
-Nombres Premiers 
DATA 1,2,3,5,7 


Étudions déjà cet exemple sans tenir compte du 
RESTORE et de l'étiquette Nombres Premiers. 
L'instruction READ A va lire une donnée puis la 
stocker dans A. Cette donnée provient de la ligne 
DATA et la première donnée lue sera 1, la deuxième 
sera 2, etc., jusqu'à la cinquième qui sera 7. 


On peut aussi lire des chaînes de caractères en les 
mettant entre guillemets dans la ligne de DATA. Il est 
aussi possible de mettre plusieurs lignes de DATA, par 
exemple la ligne DATA de notre exemple précédent est 
équivalente à : 


DATA 1 
DATA 2 
DATA 3 
DATA 5 
DATA 7 


Parlons maintenant du RESTORE et de l'étiquette. 
RESTORE sert à indiquer à l'ordinateur où se trouvent 
les DATAs à lire pour le prochain READ. En effet, le 
basic tient à jour un pointeur de DATA. Ce pointeur, 
au début, est situé sur la première donnée de la 
première ligne de DATA. Au fur et à mesure de la 
lecture, le pointeur "avance" dans les DATAS. Dans le 
cas où on a besoin de relire une donnée, il faut 
remettre le pointeur de DATA à la bonne place. Ce qui 
est réalisé par RESTORE. 


Cause d'erreur : lorsqu'on exécute un READ A alors que 
la donnée en DATA est une chaîne, le basic vous 
indique qu’une erreur vient de se produire (confusion 
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de type). Idem si vous faites READ A$ alors que la 
donnée est numérique. 


Si le pointeur de DATA est arrivé sur la dernière 
donnée et que vous tentez encore de lire une donnée, le 
basic affichera là aussi une erreur (Plus de DATA). 


Conseils : quand des constantes se situent en DATA et 
que le programme va les consulter plus de deux fois, il 
est largement préférable de les charger dans un tableau 
une bonne fois pour toutes. 


Dans les Basic moins évolués, il n‘y a pas la possibilité 
de faire de labels, donc ils sont remplacés par des 
numéros de ligne, chaque ligne de programme a un 
numéro et GOTO et RESTORE sont suivis du numéro 
de la ligne concernée, ce qui est bien sûr beaucoup 
moins pratique. En Omikron vous pouvez, si vous le 
désirez, programmer avec des numéros de ligne (pour 
par exemple adapter des programmes basic venant 
d’autres machines), il suffit pour cela de ne pas taper 
CONTROL-CIlrHome au début, et vous devrez alors 
numéroter vos lignes. 

Voici un petit exemple de programme avec des 
numéros de ligne : 


10 FOR I=1 TO 10 
20 PRINT I 

30 NEXT I 

40 GOTO 10 


1.15. LES GOSUB 


GOSUB est une instruction qui était beaucoup (énormé- 
ment !) utilisée dans les basics moins évolués (ne dispo- 
sant pas de procédure ni de structure). En fait, le 
GOSUB n'est rien d'autre qu’une procédure sans passa- 
ge de paramètre ni variable locale. Ce qui explique son 
moindre intérêt. GOSUB s'utilise de la manière suivante : 


GOSUB Etiquette 
Et le sous-programme se définit comme : 
-Etiquette 

<instruction> 

<instruction> 

<instruction> 
RETURN 
Mais on préfèrera bien sûr une procédure : 
DEF PROC Nom 

<instruction> 


<instruction> 


<instruction> 
RETURN 


et l'appeler par : 
Nom 


C'est pourquoi un bon programmeur en Omikron ne 
servira jamais de GOSUE. ! 


2. LE GRAPHISME 
2.1. LE GRAPHISME SUR ORDINATEUR 


Dessiner sur ordinateur est différent, par bien des 
aspects, de dessiner sur papier, car Sur papier vous 
disposez d'un éventail infini de couleurs (en mélangeant 
la peinture), et la finesse de vos traits n’est limitée que 
par la finesse de votre crayon. Il n'en est pas de même 
sur ordinateur ! Sur le ST comme sur tous les autres 
ordinateurs, l'écran est divisé en un nombre limité de 
points (on appelle ces points des PIXELS) et chaque 
point peut prendre une couleur et une seule parmi 16 
(en basse résolution). Ainsi, la largeur minimale d'un 
trait sera de 1 point, ce qui engendre bien entendu une 
multitude de contraintes. 


De plus, nous avons vu que l'écran est divisé en un 
nombre limité de points, on peut donc associer à 
chaque point une coordonnée X (abscisse) et une 
coordonnée Y (ordonnée) permettant de le repérer. 
L'origine du repère est en haut à gauche, c'est-à-dire 
que le point de coordonnée X=0, Y=0 se trouve en haut 
à gauche de l'écran. 


Le nombre de points n’est pas le même selon la 
résolution (moyenne et basse : moniteur couleur, haute : 
moniteur monochrome). 

Basse résolution : moniteur couleur uniquement. Vous 
disposez de 320 points en largeur, de 200 points en 
hauteur et de 16 couleurs. 

Moyenne résolution : moniteur couleur uniquement. Vous 
disposez ici de 640 points en largeur, de 200 points en 
hauteur et de 4 couleurs. 

Haute résolution : moniteur monochrome uniquement. Vous 
disposez de 640 points en largeur, 400 points en hauteur 
mais seulement de deux couleurs, le blanc et le noir. 


En basse résolution, nous avons vu que chaque point 
peut être d’une couleur parmi 16 couleurs. Cet ensemble 
de 16 couleurs s'appelle la “palette” et vous pouvez 
choisir votre palette de 16 couleurs parmi les 512 
couleurs disponibles (4096 pour les STE). Vous ne pour- 
rez pas avoir en même temps sur l'écran plus de 16 
couleurs, soit les 16 couleurs de la palette. En moyenne 
résolution, le problème est exactement le même, mis à 
part le fait que la palette est réduite à 4 couleurs. 


Une autre chose importante : il faut savoir que chacune 
des 512 couleurs du ST est composée d'une base de 
rouge, d’une base de vert et d’une base de bleu, chaque 
base allant de 0 à 7 (pour le STE, 0 à 15). "Illustrons” 
un peu : la couleur $700 (avec le rouge à 7, c'est-à-dire 
au maximum et le bleu et le vert à 0) sera du rouge 
vif, la couleur $703 (avec le rouge à 7, le vert à 0, le 
bleu à 3) sera une rouge violacé (en plus du rouge 
vient s'ajouter du bleu), etc. 


On ne définit pas une couleur par un numéro arbitraire 
mais bien par un code de composition. À chaque 
combinaison correspond une couleur unique et à chaque 
couleur correspond une combinaison unique elle aussi. 


2.2. DES INSTRUCTIONS ! 


Nous allons voir dans ce chapitre relativement long une 
multitude d'instructions graphiques qui vont vous servir 
à réaliser des effets graphiques. 
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221 DRAW 


Cette instruction permet de tracer soit un point, soit 
une ligne d’un point de l'écran à un autre, voici 
comment l'utiliser : ' 

DRAW <x>,<y> permet de tracer un point sur l'écran 
qui aura pour coordonnées x et y. Essayez de taper : 


CLS:DRAW 100, 100 


Vous devez voir un petit point s'afficher sur l'écran, 
plutôt vers le haut et vers la gauche (le CLS sert à 
effacer l'écran avant de tracer le point). 


DRAW <x>,<y> to <x2>,<y2> trace une droite du point 
de coordonnées x,y jusqu'au point de coordonnées 
x2,y2. Essayez de faire : 


DRAW 100,100 TO 200,200 


Remarque : il est aussi possible de mettre plusieurs TO 
afin de tracer plusieurs droites à la suite, essayez ce qui 
suit : 


DRAW 100,100 TO 200,200 TO 300,100 


DRAW TO <x>,<y> permet de tracer une droite du 
dernier point tracé jusqu'au point de coordonnées x,y. 


Exemple : DRAW 100,100: DRAW TO 200,200 


Exercice : Dessinez la figure ci-contre, sachant que ce 
carré fait 100 pixels de côté. Son coin supérieur gauche 
est le point de coordonnées 100,100. Ne regardez pas 
tout de suite la réponse qui suit, le problème est très 
simple... 


Réponse : 


DRAW 100,100 TO 200,100 
DRAW TO 200,200 
DRAW TO 100,200 
DRAW TO 100,100 


Evidemment, on aurait très bien pu faire cela en une 
seule instruction, avec un seul DRAW et plusieurs TO. 


2:22 PALETTE 


Comme son nom l'indique, cette instruction permet de 
changer la palette de couleurs. Voici comment elle 
fonctionne. 

PALETTE <Couleur>,<Couleur>, . . ,,<Couleur> 

Le nombre de couleurs indiqué ne devra pas être 
supérieur au nombre de couleurs possible dans la 
résolution actuelle (2 en haute résolution, 4 en moyenne 
et 16 en basse). De plus, en haute résolution, il ne peut y 
avoir que le blanc ($777) ou le noir (6000). Ce qui limite 
donc la haute résolution a deux palettes possibles : 
$000,$777 ou $777,$000. 


Le premier chiffre sera la couleur 1, le deuxième la 
couleur 2, etc. Mais vous n'êtes pas obligé d'indiquer 
toutes les couleurs de votre palette. Prenons le cas où 
vous ne voulez changer que les couleurs 2 et 3 de la 
palette en basse résolution. Il suffira de taper : 


PALETTE ,Couleur?2,Couleur3 


La virgule indique que la valeur de la première couleur 
reste inchangée. Enfin, vos combinaisons déterminant les 
couleurs devront toujours être précédées du signe $ 
(nous allons vous expliquer pourquoi par la suite). 
Exemple : (en basse ou en moyenne résolution) 


PALETTE $700,$000, $050, $770 


Cela aura pour effet de changer les 4 premières 
couleurs de la palette, et vous remarquerez que la 
première couleur correspond à celle du fond de l'écran 
(lécran devient rouge). 

NOTE : $ indique une valeur HEXADECIMALE (base 
16). 


Il nous reste encore beaucoup de choses à voir en 
Graphisme, maïs ce sera pour la rentrée ! Allez, bonnes 
vacances. 


Sébastien Enselme 
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Objet: Fait onduler votre écran. 





LES GFA-PUNCHS 








Auteur: Michel GOUX | Note: B 








| Basse résolution 

















DE L'ÉTÉ ! 














Objet: D'incroyables scrolls différentiels! 





Auteur: F'Auteur Olivier TARASSE | TARASSE L'auteur Ole TARASSE || Noa | 





CS=Mk1S (8333) 4Mk1S (84700) +Mk1$ (4500) Hague ne 
an 0 Eure er en 210) 
RON EU AUD dc (OO) MEET 
MkiS (&H500)#Mk1$ (84700 
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1 Ov O1 = CO No + 








SETCOLOR 15,8H777 

SETCOLOR 0, 0 

DEFTEXT 1,0,0,6,0 

TEXT 3,10,-PIEASE PRESS À KEY TO SEE THE EFFECT-" 

GET 0,4,319,10,texte$ 

CLS 

FOR n%=0 TO 192 STEP 8 

PUT (,n%, textes 

NEXT n% 

VOID INP(2) 

OUT 4,18 

Sn 

UT 30*SINQ (angles), 192, textes 

ds VE ADD (XB10S (2) ,1280) ,XB105 (2) , 30560 

VSYNC 

ADD angleg, ADD(8,MUL(359, (angles>350) )) 
L INP?(2) 





















2 Void Xbios(6,LiVarptr(CS)) ' 

TS="SALUT LES PUNCÉISTES! SALUT TONTON! VOILA UN PUNCE QUI ET 

VA PIATRE, J'ESPERE. DIS TONTON, CE QUI SERAIT SUPER, CA SETONR ASE Age 

SERAIT DE PUBLIER UN PETIT ARTICLE SUR LA FACON D'ADAPTER UN SETCOLOR 0,4H777 

PUNCE EN CFA 3.XX POUR EN FAIRE UN PUNCE EN GFA 2.XX. PARCE 

QUE NOUS, ” 
3 TS-TS4"LES PROGRAMMEURS EN 2.XX, ON A SOUVENT LES BOULES DE 

NE PAS POUVOIR FAIRE MARCHER DES PUNCHS QUI ONT L'AIR SUPER. 

JE ME DEMANDE VRAIMENT COMBIEN DE PUNCHISTES VONT TAPER CE 

TEXTE... AH, MONDE INGRAT... ù 
4 MS="BBJo"2Mkis (10) +"gd</"#M15 (535663) +MK1S (320982) + 

McLS (GHESEEPEFS) 4WK1S (GHESEEFFF0) +KLS (GHESEBFFES) “LS 

EBESEEFFEO) 4MK1S (&HESEEFFD8) 4MK1S (&HESEEFFDO 

EFFCE) 4MkLS (&HESEEFFCO) +Mk1$ (&HESEEFFB8) + Hs 

(LHESEEFFRO)4MK1S (&HESEEFFAS) +Mkis (&HESEE) 1 a$=STRINGS (2000, 4) 
5 MS-MS4MKIS (GHFFAOESEE) 4Mk1S (GHFF9BESEE) +Mk15 (GHFFO0ESEE) + 2 a%=Vtaÿ 

Mk1S (&EFF8BESEE) +Mk1$ (GHEFB0ESEE) +MLS (&HFFTBESEE) +Mk1S 3 2$=STRINGS (40,0) 

(&HFFT0ESEE) #0e1$ (GHFF68E352) +Chr$ (133) +"VBEM"+MK1$ 4 22:28 

(&HEEFF6051) Mk LS (GHCEFFAGAE) +Chr$ (&H75) 5 FOR f-0 0 7 
6 M=Varptr (MS) 6. DPORE 22$+(f*2), Fx256+f*16+(7-Ê) 
1 For I4=0 To 4*320-1 7 DPORE 22%#14+(#*2), (7-F)#256+(1-£) *16+ (f) 
8 Color Val l'&H”4Mids ("9CD1", 14 Div 320#1,1)) 8 NEXT£ 
9 Line 13% Mod 320,199,1% Mod 320,100+(1% Div 320+1)*15+Random 9 DPOKE 225,0 

(13 Div 32041)*3;+10*Cos ((I3 Mod 320)*Pi/20/(I$ Div 10 REPEAT 

32041))410*Sin((I8 Mod 320)*Pi/35*(5-(15 Div 320#1))) 11 BMOVE 22342, 2z%+2-(2* (INT(r/2)=r/2)),30 
10 Next I$ 12 DPOKE 2z%+2,DPEEK(22%+30) 
11 For $%-0 To 1000000 13 DPOKE 45,x3 
12 Void C:M3(L:Xbios (2)+31992,W:72,W:-1) 14  DPOKE a%+2,y$ 
13 Void C:M3(L:Xbios (2)+31994,W:84,W:5% Mod 2=Ù) 15 VOID XBIOS(6,L:22%) 
14 Void C:ME(L:Xbios (2)+31996,W:96,N:5% Mod 4=0) 16 MOUSE x5,y$,z8 
15 If 5 Mod 16-0 17 BMOVE a%,a3+4,2000 
16 Print At(40,8);MidS (TS, (S3 Div 16) Mod Len(T$)+1, 1); 18 Ir 
11 Endif 19 pseT x%,y$,r MOD 1541 
18 Void C:MS(L:Xbios(2)+10222,1:8,W:S% Mod 1=0) 20 PSET DPEEK(a%+1976) ,DPEEK(a%+1978) ,0 
19 Next 53 UNTIL LEN (INKEYS) 





149% 











De Evite le RESET mn du changement de 
| moniteur. 










1 PRINT ‘Une broche moniteur qui brinqueballe, ça vous fait 
des resets tout le temps.. 
2 PRINT ‘Et c'est assez RL # 
3 sys base*=£H4F2 | L'adresse en RAM-système contenant le 
début du système dans toutes les versions. 
A suvvect-6hk46E | Contient l'adresse de la routine de 
changement de moniteur (RESET par défaut), 
adresse$=LPEEK (sys base) 
REPEAT 
adresse$-adresse%+? 
UNTIL DPEEK (adresse%)=&H4E75 ! On cherche le premier RTS en ROM. 
SLPORE swv vect, adresses ! On passe son adresse à sw véc. 
PRINT ‘Et voilà, vous êtes tranquilles jusqu'au prochain RESET! 
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Setcolor 0,4,4,4 
VS=MKLS (0) +MKLS (7) +MkiS (4) #MKLS (0) +MKIS (0)+Mk1$ (8410000000)# 
Mk1$ (£H18000000) +Mk15 (£H1C000000) +MK1S (&HLFCO)+MKES (GR3FEO) + 
MKIS (&H4F803046) +MKLS (&HCFOO30EF) 4MK1$ (&H4E0031FC)+# 

MKIS (&H1C0003F0) #Mki$ (4H3800)+String$ (9,MkiS(0))} 

M2 ES-MkiS(0)+Mk1$(8)kiS(1)+String$s (6,Mk1S(0))+Mk1S(&H7E0)+ 
MKLS (LHFFO)+MkIS (£47E01818)+String$ (3, MkIS (4H660399C)) + 

MKLS (&HFFO300C) +MkL$ (£H3FEC) +MKIS (&H3FFC) 4MKLS (&HFF00000)+ 
MK1S (&H7E00000) MIS (&H3C01818)+MK1S (£H1803000) 

3 Do 

4 K=Mousek 

M5 F-r+3-Vit/15+K*30 ? 

6 Print At(1,4);:String$(20," ‘Chr$(13)+Chr$(10));At (1,1); 
"VITESSE :Left$(StrS((Vit#5)*1000),5);" : VaAt(1,2); 
“ENERGIE :";LeftS$(Str$(800-F),5);" \;At(1,3) ;'DISTANCE:/; 
300-D$;" ";String$ (1- (Point (40,Y%459)>1 Or Point (40,Y%+50)> 

1)*5000, 0) 

1 Prhox 36-300*(K-2),Y%+50,319-K+2,Y$+59 
DS Inc D$ 

9 Sprite V$ 
10 Emove Xb1os(2)+160*25,Xbios(2)+160*25-8,170*149 
11 Exit If Point (24,Y#+59)>1 Or Point (24,Y#+50)>1 Or F>800 Or D*>300 
12 Sprite E$,319H15*(Random(2+D% Div 50)>0),48+Random(6) *16 
M3 Drew 319,183 To 312,150+#Random(27) To 304,183 To 312, 

MO Random(27)+150 To 319,183 To 320,183 To 320,25 To 319,25 To 

: 312,27+Random(20) To 304,25 

14 For 1$-30 Dounto Vit 

15 Sprite VS,16,Y%+48 

16 YS=Y%+(Peek (SHEFFC02) Mod 4 Div 2=1)*(Y3<80) *(14Vit Div 14)- 

(Peek(&HFFFCO2) Mod 2=1]*(Y5>0)*(1HVit Div 14) 

HT Vit-Vit+(Peek(&HFFFCO2) Mod 16 Div B=1)*(Vit<30)*0.2-(Peek 
(&HEFECO2) Mod 8 Div 4=1)*(Vit>0)*0.2 

18 Next 1% 

Loop 











N, GfA-Punchs 


r$=STRINGS (8192, 0) 

FOR u=0 TO 8192 STEP 64 

DEFFILL INT (u/546) #1 

PBOX INT (u/8192*320) ,0, INT (u/8192*320)+20, 190 
FOR 18=0 TO 7 
DPORENV:rSru+16 #4, 1-16+6H8+u*240 

DPORE V:rS+u+it*449,7-16+u*240 


DPOKE Vir$stu+iet4+32,16ru*240 
DPOKE W:rS+uri8*4+34,18+6H8+u*240 
NEXT i£ 

NEXT u 

8%=GEMDOS (32,L:0| 

REPEAT 

ad#=MOD(ad%+?, 8000) 

FOR té=ads TO ad$+64 STEP 2 
BMOVE VirS+té, &HFE8242, 30 

NEXT té 

SYNC 

UNTIL LEN(INKEYS) 

VOID GEMDOS (32, L:5%) 





Setcolor 0,4,4,4 

Setcolor 15,0,0,7 

P$=String$ (32000, 0) 

XS=Varptr (PS) 

Void Xbios(5,L:X4,L:-1,1:-1) 

Déftext 1,16,0,26 

Draw 0,51 To 320,51 To 320,19 To 0,19 

Text 0,112,"  — GFA PUNCH - 

Text 0,159,320, "CHOISIR LA VITESSE” 

Text 0,190," AVEC LA SOURIS" 

Repeat 

A=A Mod 6+Mousex/2500 

Bmove X%+21*160,X3+20*160,160*30 

Bmove X%+80*160+13*160,X%+50*160, 160 

Bmove X5+196*160,X%+52*160,160*4 

Draw Mousex-7,52 To Mousex,55 To Mousex+1, 52 
Bmove X3+5*160, Xbios(2)+Int (((4=3)"2)#13) *160,80*160 
Sound 1,-(Mousex>7)*(Int{({A=3)°2))#7) *-((4-3)<=0) *-({(A=3) 
12)53),#125000/ (Int (((4-3)22)*13)+35)/1,5 
I$=1% Mod 11941 

Until Inkeys<>”" 
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fe ffer$=STRINGS (32034, CHRS (0)) 
FILESELECT “A:\*.PI1","";nm$ 
BLOAD nmS$, VARPTR (buffer$) 

VOID XBIOS (6, L:VARPTR(buffer$)+2) 

OUT 4,18 

FOR n|=0 TO 159 

PBOX SUB(158,n|),99,ADD(159,n|),100 

SOUND 1,12,3,1,0,5 

NEXT nl 

SOUND 1,13,2,1,2 

FOR y|=99 DONNTO 1 

BMOVE ADD (VARPTR (buffer), ADD(34,MUL (y! , 160) ) }, ADD (XB10S (2), 
MUL (yl, 260) }, 160 

BMOVE ADD (VARPTR (buffer$) , ADD (34,/MUL (SUB 
ADD (XBI0S (2) ,MUL(SUB(199,y|),160)), 160 
BOX G,SUB(y1,1),319, SUB(200,y|) 

VSNNC 

NEXT y| 

SOUND 1,15,1,1,2 
SOUND 1,0,0,0,0 
VOID INP (2) 

QUT 4,8 


(199,y1),160))), 


sens£&=100 
asm$=MKLS (&H42A73F3C )+MKLS (8204841) +MKLS (SHSC8F206F) + 

MKLS (8H4222F) 2MKLS (£H8242F) +MKL$ (8HC51CA) *MKLS (&HFFFE263C)+ 
MRLS (68H63) +MRLS (&H33DB00FF) +MKLS (&H824051CB) #MKL$ (&HEFFE51C9) + 
MKLS (&HFFEE2F00) #MKLS (&H3F 300020) +MKLS (&H4E415C8F) + 

MKLS (£44E 750000) 
c1$="111222333444555666777666555444333222111011022033044055066 
077066055044033022011100200300400500600700600500400300200100" 
c2$="0100200300400500600700600500400300200100010020030040050 
060070060050040030020011102203304405506607706605504403302201 
10101202303404505606707606505404303202101" 

coul$=STRINGS (182,CHR$ (0)) 

asmè=V:asmn$ 

FOR n|=0 TO 90 

DPORE VARPTR (coul$)+n]*2, VAL ("£n"#MID$ (c1$+c2$,n|*341, 3)) 
NEXT nl 

SETCOLOR 15,6H777 

DEFTEXT 1,0,0,32 

TEXT 65,100,"* GFA=PUNCH *” 

OUT 4,18 

REPEAT 

-Ciasmé (L:VARPTR (coul$),L:90,L:v&) 

VSYNC 

ADD vé&, sensé 

séns£=MUL (sense, ((((v&<1) OR-(v&>2000) ) +2) *2)-3) 

UNTIL INP{-2) 
OUT 4,8 
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Dim X$(4),Y$ (4) 
For J$=1 T0 5 
Read C$,N$,F5,D% 
CS=Mki$ (84444) +Mk1$ (7*C$) MIS (6XC$) 4Mk1$ (3*C5) Mk1$ (5*C$) 
1MkiS (2405) +MkiS (4XC3) +Mk1$ (CE) +String$ (8, Mki$ {0)) 

Void Xbios(6,L:Varptr (C$)) 

For Poly#=1 To N° 

Read x15,Y18,11%,H1%,X2%, 23, 12%, H2% 

For A-2*Pi-D$/10 To -D%/10 Step -2*Pi/F$ 

For 1#%=0 To 4 

x3 (1$)=160410* (-(X13+11%*Cos (A+2*Pi/F8* (1%=0 Or 1%=4)))* (0 
Or T=1 Or 19=4)-(x234128*Cos (AH2*Pi/F8* (1%=3) ))*(1$=2 Or 1$%=3)) 
5 (1%)=50#10* (- (13H18 Sin (A+2*P1/F8* (15=0 Or 1%=4))}* (1%=0 Or 
12=1 Or I9=4)-(V22#H2#*Sin (A+2*Pi/F8* (1%=3)))* (1$=2 Or T$= 3)) 
Next 1% 

peffill 1*(-Cos(A-D%/10)*(Cos (A-D%/10)>=0)}+2 

Polyfill 5,X$(),Y#() 

Polyline 5,X#(),Y$() 

Exit If Mousek 

Next À 

Next Polys 

Print String$ (30000, 0) ;Chr$ (27) ;"E" 

Next J$ 

Data 256,2,29,0,0,12,0,0,0,5,9,3,0,5,9,3,0,0,3,1,16,1,50, 
3/=07 _2,0,0,4,9,9,3,257,3,35,2,0;9, 12, 4,00, 15, 5106071565; 
0,2, 6,2,0,2,6,2,0, =3,0,0,272,2,36,0,0,12,3,1,0,2,6,2,0,2,6, 
2,0,4,12,4, 273,3,31,0,0,9,9,3,0,9:3:1,0,9,3;15055631 tr 05 4 
9,3,0,-3,6,2 











































Objet: Ondulation de texte. 


Auteur: Michel GOUX | Note: C 


LO © I on O1 = Lo > +4 


en he pi ns ns pi ms 
D © —J eo 01 = LÀ D rm © 


DIM car$(13,27) 

SLPOKE £HEF8240,84777 

FOR t|=0 TO 8 

DEFTEXT 2,,,ADD(t|,13) 

FOR n|=1 TO 27 

TEXT 0, ADD (22, (t{/2)) ,MIDS ("SALUT À TOUS LES PUNCHISTES",n|,1), 
GET 0,8,10,30,car$(t|,nl) 

cts 


“NEXT n| 


NEXT t| 

OUT 4,18 

REPEAT 

FOR n|=1 TO 27 

PUT MUL(n|,11),100,car$ (ABS (INT (SIN (car) *8)),ni) 
ADD car, 0.25 

NEXT n| 

UNTIL INP?(2) 

SLPOKE &HFF8240, &h7170000 

OUT 4,8 








Objet: Un "nouvel alphabet rigolo". 


Auteur: J. ORLOFF 






facteur esp=0.25 

taille=19 

REPEAT 

n$=INP (2) 

FOR j#=0 TO 3 

FOR k%=0 TO 1 

square (-((2%(k5+2*5%) AND n$)>0),x$tkt*tailles,y#+j#*tailles, 
=(-k3 XOR EVEN (43) )) 

NEXT k% 

NEXT 3 
x%=-(x$+(2+facteur esp) *2*tailles<640) *(x%+INT ( (2+facteur esp) 
*tailles)) 

y*=y%- (x%=0) INT ((4+facteur esp) *taillet) 

UNTIL n%=13 

PROCEDURE square{hit$,x%,y#,13) 

1$=i$ XOR bits 

DEFFILL 1% 

PROX x%,y3,x$ttailles, yhttailles 

DEFFILL 1-15 

PCIRCLE x#tbitittailles,y#,tailles/2, (3-bit$)*900, (4-b1t%) *900 
PCIRCLE x%+(1-bit%) tailles, y#ttailles,taille®/2, (1-bit#) 
*900, (2-bit%) *900 








Setcolor 0,4,4,4 

Deffn X(D$,1)=160-(1-160)*(D=0 Or D=3)-(D=1 Or D=2 Or D=6) 
*(Cos (1/20) *150)-(D=3)* (Sin (1/4) *20)-(D=4) * (Cos (1/5) *1/5)- 
{D=5) * (Cos (1/30) *150) 

Deffn Y(D,1)=100-(Sin(1/10)*65+Cos (1/30) *30)*(D=0 Or D=3 Or 
D=6)-(D=1 Or D=5)*(Sin{(1/30)*80)-(D=2) * (Sin (1/25) *90)-(D=4)* 
(Sin(1/5)*1/7)-(D=5) * (Cos (I/4) 15) 

Deffn L(D)=-(D=0) *150-(D=1) *120-(D=2) *120- (D=3) *16- (D=4) 
*90999-(D=5) *170-(D=6) 110 

Defline 1,10,2 

X%=Xb105 (2) 

Do 

P$=Strings (32500, 0) 

Emove (Varptr(P$) Div 256)*256+256,X%, 32000 

Repeat 

I=-(1+1)*(Inkey$="" And ((@L(D)<>99999) Or (I<816))) 

Void Xbios(5,L:-((Varptr(P$) Div 256) *256+256)*((I Mod 2)=0) 
-X%*((I Mod 2)=1),L:-1,W:-1) 

Color D+l 

Pilot @X(D,I) Mod 320,@Y(D,1) 

Color 0 

Plot @X(D,I-6L(D)) Mod 320,0Y(D,I-EL{(D)) 

Void Xbios(5,L:-1,L:-((Varptr(P$) Div 256)*256+256) * ( (I Mod 
2)=0)-X#*{(I Mod 2)=1),N:-1) 

Until Gemdos (11) 

D=(D+1) Mod 7 

Loop 





GfA-Punchs 


Objet: Des sprites sur une image Degas PI1... 





| Auteur: Vincent GUESDON 


© © —J Où O1 > À D 


ren 
Li} 


11 


PEN PS ME OO EE 
CO —J O\ O1 1 5 





DIM spr$ (9) 

FOR m=1l TO 150 STEP 16 

PCIRCLE m+8,8,ABS(-5+(m/8) MOD 10)+3 

Spr$ (INT (m/16) }=MKIS (0) MKIS (0) 4MKIS (1) +MKIS (0) 4MKIS (4) 
FOR g=0 TO 15 

FOR f=-1 TO 15 

mot=-(mot-(2" (15-£)) * (PTST (£tm, g) <>0} ) * (F<>-1) 

NEXT f 

Spr$ (INT (m/16) }=spr$ (INT (m/16) } +MKIS (mot ) +MKIS (mot) 
NEXT q 

NEXT m 

FILESELECT “A:*,*"," \n$ 

BLOAD n$, XBIOS (2) -34 

VOID XBIOS (6, L:XBIOS (2) -32) 

REPEAT 

t=t+INT (3/9) 

F$=MOD (F%+1,10) 

SPRITE spr$(f%),(f%*66) MOD 300, 100+SIN((t+f3*2) /18*PI)*80 
UNTIL MOUSEK=2 








Objet: Générateur de fugues. Un Punch cacophonique! 


Auteur: L'Auteur: Olivier TARASSE TARASSE L'auteur Olivier TARASSE |] Nos | 
| Auteur:J.ORLOF | | Auteur:J.ORLOF | ORLOFF 


DIM mesp(32, 2) 


DEFEN h (deg%}=modu1%+ASC (MIDS (‘acdfhil”,deg# MOD 7+1))-ASC("a") 
#12*(deg% DIV 7) ! Hauteur chromatique de la note, en 
fonction de son degré dans la gamme modulée par modul# 
REPEAT 

modulé=modul1$+7*((RND>0.4 AND modu1%>=0)-(RND>0.4 AND moduls 
<=0}} ! Modulation d'une quinte 

FOR j%=1 TO 16 ! Changer la mesure ici. 

temp$=degres 

change%=- (RND> (0.2+0.1*(3%=1) -0.2*(0<>INSTR("135/,CHRS (ASC 
("0”)+temp% MOD 7)}))}} 

REPEAT |! Attend une touche ou une “harmonie” 

degre*=temp#+ (RANDOM (2) +1) * (2*RANDOM (2) -1+3* (temp%>40) -3* | 


tempi<25)) 

UNTIL INKEY$<>"" OR O=INSTR (“bcglns”,CHR$ (ASC (“a”) +ABS (Qh 
(degre*)-mesp(3%,1)))) 

degre%=tempètchange* (degre$-temp#) 

SOUND 4-2*mesp(5%,2),12-1*(3%=1) ,mesp(j%,1) MOD 12,mesp{5%,1) 
DIV 12 


SOUND 4-3*change%,13-1* (j%=1) ,Ch(degret) MOD 12,Ch(degret) DIV 12 
VAVE 3 

PAUSE 6 ! Changer le tempo ici. 

mesp(]$,1)=@h(degres+0) ! Essayez +/- 2 où +/- 4 
mesp(1%,2)=change* 

NEXT 5 

UNTIL INKEYS<>"" 























LE STOS-PUNCH 


Ce Stos-punch est l'oeuvre de Fabien Potencier, de Saint 
Venant, il gagne quelques softs de la Boutique Pressimage. 
Après avoir chargé la banque MAP.MBK et après avoir 
branché le joystick dans le port 2, il ne vous reste plus qu'à 
avaler le plus possible de pastilles ou de goodies! Un Stos 
Punch, c'est un listing Punch de 10 lignes maximum, que vous 
envoyez à Tonton Stos sur disquette (impossible de vous la 
renvoyer!) accompagnée d'un courrier dans lequel vous nous 
direz quels softs Pressimage vous feraient plaisir... 
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#“BOUEFE-TOUT", "Juin 1990” 





EMULATEUR 
VIDEOTEX 


Plus rapide qu'Emulcom, 

plus beau que ZZ-Com, 

en exclu-lulu, voici les listings, 

en GfA et en Assembleur, 

qu'Emmanuel Anne a écrits 

pour son émulateur ! 

C'est en basse résolution 

et c'est pas chez Ardisson ! 

Les fans de listings seront ravis, puisqu'il y a 13 pages, 
le record est battu. Les fans de Vidéotex seront rassa- 
siés puisque tout y est, ou presque. I| manque juste le 
masquage et le clignotement (que vous pourrez cepen- 
dant retrouver dans une version plus étoffée que celle- 
ci, commercialisée dans les prochains mois à la Bou- 


tique de Pressimage), tout le reste y est ! Et c'est rapide, 
et le résultat à l'écran est lisible. 





L'émulation elle-même est programmée en Assembleur 
(en GfA-Assembleur, pour être plus précis), et le contrô- 
le, l'environnement de l'émulation est assurée par les 
routines GfA. D'autre part, un autre listing GfA s'occupe 
de générer la fonte écran. 


Vous avez 3 listings Assembleur, qui ont été prévus pour 
le GfA-Assembleur, et qui doivent tous les 3 être inté- 
grés aux INLINE du source GA, l'un d'eux après l'avoir 
modifié à l'aide du deuxième listing GfA, comme on vous 
l'explique juste avant ce dernier (mode d'emploi du jeu 
de piste en page 152). 


Avec cette version, on peut soit émuler le Minitel, soit 
relire un fichier Vidéotex sauvegardé (vous consultez un 
serveur, et vous capturez les écrans affichés pour les 
visualiser ultérieurement). Pour revenir au menu princi- 
pal, utilisez <F2>. Pour quitter l'émulateur, tapez <F9>. 
Les commandes de l'émulateur sont indiquées dans le 
source GfA. 


Comme tout document publié dans ST Magazine, toute 
utilisation commerciale ou reproduction, même partielle, 
de ce listing est interdite sans l'accord de l'auteur et de 
Pressimage. ST Magazine se réserve le droit d'engager 
des poursuites en cas de non-respect de cette interdiction. 


Le tout est sur la disquette ST Mag 43 ! 








LISTING GFA 1 


\ Emulateur minitel version 3.4 modifiée Juin 1990 
\ (Uniquement couleur) 
RESERVE 150000 
| Afin de pouvoir utiliser des buffers par MALLOC 
IDEFWRD Na-2" 
resol=XBIOS (4) 
| 1F resol©0 
ALERT 3,"Cette version ne tourne qu'er{basse...”,1,’Désolé”,b! 
RESERVE 
“| m 
JENDIF 
Ni 
) Initialisation de la palette... 
[1 
IRESTORE palette 
FOR n=0 70 7 
READ h 
pÉ=pSHMKIS (h) 
.NEXT n 
PS=p$+p$ 
M #XBIOS (6,L:V:p$) 
Mn palette: é 
DATA $000, $700, $070,$770, $007, $707, $077,$777 
&XBIOS (15,7,0,174,-1,-1,-1) 
DEFMOUSE 0 
\ 
IRÉTTTITTETT ETS IT 10 
|" * Routines INLINE * 
M URRRARAARRRRARKRÉREAX 
Lx 


| Pour le compilateur 


INLINE adr$, 7316 

M \TNLINE instr$, 34 

M \TNLINE instr23,38 
\1 


M |\ Inits (Certaines variables se trouvent 
I |! directement dans la routine...) 
À 4) 
LM |DEFFN state (n)=BYTE{adrt+24n411} 
M DIM 3 (15) , pages (500) 
| HV 


m|Y$=SPACES (2) | Ca, ça servira à recevoir les coords du locate 

taille ecrant=40*1280 ! 40 lignes 

taille rst=2048 | Taille du tampon alloué pour la RS232 

buff=100 

M Mettre ici la place à reserver, en Ko, pour le buffer pages 
|sensible=80 
\ Longueur minimum d'une page - important pour la lecture de fichier 
init$=adrt+6H1C 

Sc+ 

| ABSOLUTE phys4, C:init? () 

Sc 


MuIARSOLUTE coordx|,V:phys$+4 
ABSOLUTE coordy|,V:coordx|+1 
M, ABSOLUTE color|,V:coordy|+1 
ABSOLUTE attrib|,V:color|+1 
| [ABSOLUTE fond|,V:attrib|+1 
M ABSOLUTE encre|,V:£fond|+1l 
M |ABSOLUTE memd3|,V:encre|+1 
MIABSOLUTE menatt |, V:memd3 | +1 
A ABSOLUTE physmin$, V:mematt |+1 
BSOLUTE physmax®, V:physmin$+4 
ABSOLUTE physmed®, V:physmax$+4 
| Phys _alloc+=MALLOC(32000ttaille ecran$+256) 
physminè=(phys alloct+6H100) AND &HFFFFFF 00 
IF physmin$<6H200 
ALERT 2, "Erreur dans les allocations|mémoire 
gen palette 
END 


|ENDIF 
physmax*=physmint#taille ecrant 


.. désolé.”,1,"ABANDON",b! 


physbaset=XB10S (2) 

physt=physmin$+SER (taille ecran$, 1) 
physnedt=physà 

XBI0S (5,L:phys$,L:phys%, -1) 
maint=adrt+6H1lE 

newx$=adr4+6420 

curseurt=adr$+6424 

vide 

path$=CHR$ (GEMDOS (25)+65) +” :"+DIR$ (0) 
alloc rs232 

ressource |! Dans cette version, ce n'est pas une ressource ! 
r%(4)=FALSE | Mode rouleau 

r$ (0)=1 | coordonnées curseur 

r$(1}=2 

r$(3)=FALSE | Fonte texte, aucun attribut, 
CIR n0$ ! Nombre d'octets traités 


LORRARARÉRERARERAEE 
\ Boucle principale 
VOHRRARARARAREAREAX 


\ Select/Case sur des mots, optimiser le tps d'execution 
$se,S 
SELECT traite 
CASE GH1F 
\ locate 
ÿ2=ftraite 
IF y2<32 
erreur !=TRUE 
ELSE 
x2=ftraite 
IF x2<32 
erreur !=TRUE 
ELSE 
BYTE{V:y$}=y2 
BYTE{V:y$+1}=x2 
IF VAL? (y$)=2 
y2=ADD (VAL (y$) , 1) 
x2=1 


IF x2>0 AND x2<41 AND y2>0 AND y2<26 
IF r%(7) 
RCALL curseur#, r$ () 
ENDIF 
IF r#(1)>1 
coordx|=r# (0) 
coordy |=r# (1) 
mend3|=r$ (3) 
mematt |=attrib| 
color|=encre| 


RCALL curseur, r$ () 
ENDIF 
r$(3)=FALSE 
attrib|=5H80 
encre|=7 
ENDIF 
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\ répète le dernier caractère 
r$(6)=êtraite-65 
r$(2)=vieux 
IF r#(6)>=0 

RCALL main$,r$ () 
ELSE 
IF r$(6)<-33 
erreur !=TRUE 
ENDIF 
1%(6)=0 
ENDIF 

CASE 27 
\ Codes ESCAPE 
IF étraite=6H3A 

\ Pro? (le protocole pas le prg !) 
IF étraite=115 


\ Acquittement statut fonctionement.…. 


mode (traite) 
ELSE IF c<32 
erreur!=TRUE 
ENDIF 
ELSE IF c=6H23 OR c=6H20 
IF Ctraite<32 
erreur !=TRUE 
ELSE IF étraite<32 
erreur !=TRUE 
ELSE 
IF buffer! 
no%=SUB (no%, 4) 
ENDIF 
ENDIF 
ELSE IF c=6H3B OR c=6H21 
IF ftraite<32 
erreur !=TRUE 
ELSE IF ftraite<32 
erreur!=TRUE 
ELSE IF @traite<32 
erreur!=TRUE 
ELSE 
IF buffer! 
no$=SUB (no$, 5) 


\ Signification des bits de D3 
\ 0 : Mode texte/graphique 
\ 1 : masquage caractères graphiques 
\ 2 : Double largeur 
‘ 3 : Double hauteur 
\ 4 ; inversion vidéo 
ELSE IF c>=£H40 AND c<=£H47 
encre|=c-6H40 
ELSE IF c>=6H50 AND c<=£457 
attrib|=0R (AND (attrib|,&H70) ,c-6H50) 
ELSE IF c=91 
\ Déplacement curseur - Minitel 1B 
IF r%(7) 
RCALL curseur, r# () 
ENDIF 
IF ftraite>31 
SELECT c 
CASE 65 
IF r$(1}»2 
DEC r%(1) 
ENDIF 
CASE 66 
IF r$(1)<25 












IF r%(0)<40 
INC r# (0) 
ENDIF 
CASE 68 
IF r%(0)>1 
DEC r$ (0) 
ENDIF 
ENDSELECT 
ELSE 
erreur !=TRUE 
ENDIF 
IF r$ (7) 
RCALL curseur$, r$ () 
ENDIF 
ELSE IF c=90 
\ Soulignement ou masquage 
IF BTST(r#(3),0) 
\ à distance seulement en mode texte 
r%(3)=r#(3) OR 2 
ELSE 
attrib|=BSET (AND (attrib|,6H3F), 6) 
ENDIF 
ELSE IF c=89 
‘ suppression du soulignement/masquage 
IF BTST(r$(3),0) 
r%(3)=BCLR(r$ (3), 1) 
ELSE 
attrib|=AND(attrib|,£H3F) 
ENDIF : 
ELSE IF c=78 ! Double largeur 
1$(3)=r$(3) OR 4 
r$(3)=r$(3) AND 6HF7 
ELSE IF c=77 ! Double hauteur 
r$(3)=r$(3) OR 8 
r$(3)=r%(3) AND 6HFB 
ELSE IF c=76 ! Taille normale 
r$(3)=r$(3) AND 6HF3 
ELSE IF c=79 ! Double taille 
r$(3)=r%(3) OR 12 
ELSE IF c=92 ! Inversion vidéo OFF 
13 (3)=BCLR (r% (3), 4) 
ELSE IF c=93 ! Inversion vidéo 
r$(3)=BSET(r$ (3), 4) 
ELSE IF c=72 OR c=73 ! clignotement ON/OFF 
ELSE IF c=94 ! code inconnu !!! 
ELSE IF (c>£H34 AND c<&H3A) OR c=6H25 


OR c=&H2F OR c=6H22 


IF ftraite<32 
erreur !=TRUE 
ELSE 
IF buffer! 
noŸ=SUB (noÿ, 3) 
ENDIF 
ENDIF 
ELSE IF c<32 
erreur !=TRUE 
ELSE IF c<=95 
attrib|=BCLR(attrib|,7) 
ENDIF 


CASE 6H16,6H19 ! Accents 


1F étraite»>31 
SELECT c 
CASE 35 
1$(2)=132 
CASE 36 
1% (2)=36 
CASE 38 
1%(2)=0 
CASE 39 
r$(2)=157 
CASE 44 
1% (2)=128 
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CASE 45 
r4(2)=131 . 
CASE 46 
rà (2)=129 
CASE 47 
r$(2)=130 
CASE 48 
r4(2)=133 
CASE 49 
r$(2)=150 
CASE 56 
r#(2)=151 
CASE 60 
r(2)=152 
CASE 61 
r4(2)=153 
CASE 65,66, 67,72, 15 























CASE 106 
1$(2)=154 
CASE 122 
1%(2)=155 
CASE 123 
1% (2)=156 
DEFAULT 
1%(2)=95 
ENDSELECT 
RCALL main$, r$ () 
ELSE 
erreur !=TRUE 
ENDIF 
CASE £H13 
IF (traite-£H56 
\ changement de mode fonctionement 
IF minitel! 
REPEAT 
\ on attend l’ack de chgt de mode 
inp$=inp$+INPAUXS 
\sinon Minitel et ST ne font pas le 
1=INSTR (inp$, "s"”) 
‘changement de mode en même temps... 
UNTIL r>0 
























IF buffer! 
. | on le met dans le buffer 
BYTE{buffer$+not-2}=27 
\ à la place du changement de mode 
BYTE{buffertno$-1}=58 
BYTE{buffer$no$}=115 
INC no% 
ENDIF 
IF LEN(inp$)=r#2 
c=INP (1) 
\ on l'interprète 
inp$=LerT$ (np, PRED (r)) 
ELSE 


\ ce cas doit être rare compte tenu 
‘ de la vitesse du ST... 
c=ASC (MID (inp$, r+3) ) 
inp$=LEFT$ (inp$, PRED (r) } MID$ (inp$, rt) 
ENDIF 
IF buffer! 
BYTE {buffer t+no$}=c 
INC no 
ENDIF 
@mode (c) 
\ En fait, c'est ici qu'on fait vraiment 
\ le changement de mode 
IF buffer! 
\ pour un gain de vitesse... 






































Videotex : 


BMOVE V:inp$,buffer$+not, LEN (inp$) 
ADD noÿ, LEN (inp$) 
ENDIF 
ELSE 
\ Dans le cas où on lit un fichier 
memÿ=n0$ 
‘ on cherche tout de suite l’ack 
REPEAT 
\ Dans le cas d’une lecture d’un fichier 
INC mem$ 
\ créé avec cette version, on ne sera jamais 
\ dans ce cas. Cette manip est nécessaire pour effectuer le 1%(2)=134 
\ changement de mode en même temps que le Minitel CASE ‘e” 
| UNTIL (BYTE{ad$+mem$-3}=27 AND BYTE{adt+mem$-2}=58 AND 1% (2)=135 
BYTE{ad$tmem$-1}=115) OR SUB(mem$, no%) >256 CASE ‘u” 
IF SUB (mem$, no$)<=256 r$(2)=136 
mode (BYTE{ad++mem?}) DEFAULT 
ENDIF ! Si l'acquittement n'est pas trouvé, changement de mode impossible 1$(2)=c 
ENDIF 2 ENDSELECT 
ELSE IF c=6H5E OR c=6H53 ! Reset vidéotex ; CASE £H42 
1% (3)=0 IF c=69 OR c=101 
r$(4)=0 
IF r$(7) 
RCALL curseur$, r$ () 
ENDIF 
1%(7)=0 
"BIOS (11,16) ! MAJUSCULES 
1$%(2)=138 
ELSE IF c=69 OR c=101 
r$(2)=139 
ELSE IF c=111 OR c=79 
1$(2)=140 
ELSE IF c=73 OR c=105 
1% (2)=c 1% (2)=141 
IF c31 : ELSE IF c=85 OR c=117 
vieux=c ‘ 1$(2)=142 
ENDIF ENDIF 
RCALL main, r$ () CASE 6H48 
IF c=69 OR c=101 
r$(2)=143 
ELSE IF c=65 OR c=97 
1% (2)=144 
ELSE IF c=73 OR c=105 
programme ?”,1, "OUIINON”,exit 1% (2)=145 
ELSE IF c=111 OR c=79 
x$ (2)=146 
ELSE IF c=85 OR c=117 
1% (2)=147 
ENDIF 
CASE 75 
IF c=67 OR c=99 
1$(2)=148 
NOHRARRARREX ENDIF 
\ Procedures DEFAULT 
VORRRERARERX r$(2)=c 
\ ENDSELECT 
PROCEDURE fonctionement RETURN 
\ Status fonctionnement ? FUNCTION traite 
OUT 1, 6H1B, 6H39, 6H72 \ envoie un code au prg en provenance du Minitel ou d'un fichier 
RETURN LOCAL car,t 
PROCEDURE mode (c) : WAILE car=0 AND (NOT erreur!) 
\ Place le ST dans le mode renvoyé par fonctionement ' IF minitel! 
IF BIST(c,1) IF LEN(inp$) 
r4(4)=-1 car=BYTE{V:inp$tno2t} 
ELSE INC no2$ 
1% (4)=0 IF no2%=LEN (inp$) 
ENDIF 
IF BIST(c, 3) 
VOID BIOS (11, 0) 
‘ ELSE 
“BIOS (11, 16) ! 
ENDIF BYTE{ADD (buffer®, noë) }=car 
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IF not>long buffer 
ALERT 1,” Capacité du buffer | dépassée !!! sauvegarde | 
immédiate... ",1,"Compris”,b! 


D ORAARARERREARARRARÉRX 
\ Lecture d'un fichier 
LRARAARARRÉRARRRÉRÉRE 


4 


car=BYTE{adè+no$} 
IF no%<long$ 

INC no 
ELSE 

car=1 !CODE BIDON 
ENDIF 


x 








\ Pression d’une touche pendant l'affichage 
IF INP?(2) 
t=INP (2) 
IF t=200 
\ Retour 
IF page>0 
DEC page 
update_page 
ENDIF 
ELSE IF t=208 
IF page<PRED (nb pages) 
INC page 









ELSE IF t=159 
1%(4)=NOT r%(4) 

ELSE IF t>=187 AND t<=196 
exit=t-186 

ENDIF 

ENDIF 


\ Gestion de l'attente d'une touche 
\ 
IF efface>0 
DEC efface 
ELSE 
IF no$=paget (SUCC (page) 
IF sortie 
imprime 
ELSE 
PRINT AT(34,1) ;SUCC (page) ;’/";nb pages; ” "; 
DEC no$ 
CLR car 
REPEAT 
t=INP (2) 
UNTIL t=208 OR t=200 OR t=159 OR (t>=187 AND t<=196) 








ENDIF 
ELSE IF t=159 
r$(4)=NOT r$ (4) 
ELSE IF t>=187 AND t<=196 
exit=t-186 
erreur !=TRUE 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 








































\ L'entrée des données a maintenant été traitée 
\ 
REND 
IF erreur! 
erreur!=FALSE 
RETURN c 


\CtrlC : Connexion/Fin 

‘Ctrl S : Sauvegarde 

\CtrlF : Déconexion 

\CtrlR  : Répétition 

“Altinum : Code ASCII num ("£” hexa ou ‘” décimal) 

\ Alt+S : Scrolling ON/OFF 

\ Tous les accents sont aussi disponibles, comme sur tout 
\ bon traitement de textes... 

IOCAL c,al$,f$,c%,c25 

c=INP (2) 


IF ©=187 AND c<=196 
exit=c-186 
ELSE 
INC nb touche 
IF c-13 OR c=200 OR c=208 OR c=225 OR c-226 ! Ajouter un code SUITE 
IF buffer! AND nb touche<=2 ! même s'il faut l'enlever après 
BYTE{buffer$tnot}=6Hl3 . 
BYTE {buffer %+SUCC (no$) }=£H48 
ADD noÿ,2 
ENDIF 
CLR nb touche 
ENDIF 
SELECT c 
CASE 6 ICtrlF 
OUT 1, 6H1B, 6H39, 6H67 
CASE 159 
r$(4)=NOT r4 (4) 
CASE 13 ! ENVOI 
OUT 1,6H13,6H41 
CASE 200 ! RETOUR 
OUT 1,6H13,6H42 
CASE 18 ! REPETITION 
OUT 1, 6413, 6443 
CASE 226 ! GUIDE 
OUT 1,6H13, 6H44 
CASE 127 ! ANULATION 
OUT 1,6H13,6H45 
CASE 225 ! SOMMAIRE 
OUT 1,6H13, 6H46 
CASE 8 ! CORRECTION 
OUT 1,6H13, 6H47 
CASE 208 ! SUITE 
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OUT 1,6H13,6H48 
CASE 3 ! CONNEXION FIN 
OUT 1,6H13,6H49 
CASE 19 ! Sauvegarde 
IF buffer! 
FILESELECT path$+”\*.min","",£$ 
path$=LEPT$ (£$,RINSTR(£$, \") -1) 
IF ÉS<>"" 
IF INSTR(£$, ".”)=0 
£$=£$#" min” 
ENDIF 
c=buffers 
REPEAT 
L céC:instr2%(L:ct+sensible+2, 
L'buffer$tnoÿ) 
| IF cb0 
Il c24=Ciinstr$(L:c$, Libuffer$tnot) 
| IF c2$-ci<=sensible AND c25>0 
l SUB no, 2 
| BMOVE c$,c$-2,buffer#inot-ct 


UNTIL c=0 
BSAVE f$,buffer$, PRED (no%) 
libere 
l ALERT 1," Buffer effacé “,1,"0K",bl! 
1l ENDIF 
l ELSE 
| ALERT 2,”Pas de buffer à sauver !!l", 
1; "Ah ?”,bl! 
ENDIF 
CASE 94 
c=INP (2) 
IF c=97 OR c=101 OR c=105 OR c=111 OR c=117 
|! OUT 1,6H19,6H43,c 
LL ELSE 
OUT 1,94,c 


! 
ALL 


+ —mw{) 
M our 1,6H19,cH48,c 
“| oeraucr 
touch? (c) 
M  ENDSELECT 
 ENDIF 
PROCEDURE touch? (c) 
SELECT c 
|" CASE 153,154,148,129,132,137,139,142 
h OUT 1,6H19,6H49 
| SELECT c 
CASE 129,154 
OUT 1,117 
CASE 132,142 
QUT 1,97 
CASE 137 
OUT 1,101 
CASE 139 
OUT 1,105 
CASE 148,153 
OUT 1,111 
ENDSELECT 
CASE 131,136,140,147,150 
OUT 1, 6H19, 6H43 








CASE 128,135 
OUT 1,6H16,75 


OUT 1,6H19, 6442, 101 
CASE 138 

OUT 1,6H19, 6H41, 101 
CASE 182,133 

OUT 1,6H19, 6H41, 97 
CASE 151 

OUT 1,6H19, &H41, 117 
CASE 248 

OUT 1,6H16,48 
CASE 221 

OUT 1,6H16, 39 
CASE 156 

OUT 1,6H16,35 


PRINT AT (34, 1) ;SUCC (page) ;"/”;nb pages; ” ‘; 
efface=sensible 


RETURN 
PROCEDURE selectfich{titres, chemin$, entree$, VAR nan£) 
FILESELECT ftitre$, path$tchemin$, entree$, non$ 
IF nom$<>/’" 
path$=LEFT$ (nom$, RINSTR (nom$, ‘\”)-1) 


"XB10S(5,L:-1,L:-1,resol) 

free rs232 

MEREE (phys alloct) 

BIOS (5,L:physbase$, L:physbaset, -1) 


VOID MFREE (buffer) 
buffer !=FALSE 
ENDIF 
IF (NOT minitel!) 
result=MFREE (ad$) 
ENDIF 
RETURN 
\ 
PROCEDURE ressource ! Gère les paramètres 
LOCAL loc$,a$, x, loc2% 
4 





Videotex & ns 





PRINT “1 - Minitel” 
PRINT “2 - Fichier" 
INPUT “Choix ‘;x 
IF xl 
minitel !=TRUE 
IF buff>=2 AND buff<300 
buffer!=TRUE 
long buffert=buff*1024 
buffer4=MALLOC (long buffer) 
IF bufferi<=0 
ALERT 3, "Quelque chose cloche :| 
impossible d'allouer la mémoire| 
nécessaire. . .”,1,"Ah bon?”’,b 


selectfich{‘Fichier minitel","\*.MIN",””,n$) 
IF EXIST(n$) 
OUT 1, 6H1B, 6H39, 6H67 
OPEN “i”,#l,n$ 
long?=LoF (#1) 
ad$=MALLOC (1ong*) 
IF adt>0 
BGET #1, ad$, longs 
CIOSE 
ELSE 
ALERT 3,"Quelque chose cloche :| 
impossible d'allouer la mémoire| 
nécessaire au chargement !”,1,"OK”,b 
fin 
ENDIF 


\ 


‘ Localisation des pages dans le fichier 


L 


CIR nb pages, page 


loc$=C:instr4 (L:loci+sensible, 
L:ad$+long$-1) 
CLS 


IF loct>0 
IF loc2%<loc$ AND loc2#>0 
loci=loc2?% 
ENDIF 
page* (nb pages)=loct-ad$ 
INC nb pages 
ELSE IF loc25>0 
loct=loc2$ 
page$ (nb pages)=loc$-adi 


UNTIL (x=1 OR x=2) 
efface=sensible 
SPUT a$ 
RETURN 
PROCEDURE alloc rs232 
\ Allocation d'un tampon pour la RS 
























rs232#-MALLOC (taille rs$) 
ad*%=XB1OS (14,0) 

old rst=LPEEK (ad$) 

LPORE adè, rs232% 

old tat=DPEEK (ad$+4) 
DPORE ad$+4,taille rsi 
LPOKE ad$+6, 0 

RETURN 

PROCEDURE free rs232 

\ Remet le tampon RS232 comme on l'a trouvé 








LOCAL ad$,err 
ad?=XB10S (14, 0) 
LPORE ad$,old rs$ 
DPORE ad$+4, old ta? 
LPOKE ad#+6, 0 
er=MFREE (rs232$) 
Fer 

-FORM ALERT (1, ERRS (er) ) 
ENDIF 
RETURN 














Saisissez le listing Assembleur 1, et, à la compilation (assemblez en mode PC relatif), sauvez sous le nom 
"MINL.PRG". Tapez le listing GfA 2, sauvegardez et lancez. Vous obtiendrez un fichier "MINLINL", que vous 
intégrerez au listing GfA 1, dans le premier "Inline". Tapez les 2 autres listings Assembleur (toujours en mode 
PC relatif), à intégrer aussi dans les 2 autres Inline. Bonne saisie! 

Si vous avez des problèmes, 3615 STMAG, rubrique “RTC. 
































LISTING GFA 2 





CLS 
SETCOLOR 0,0 
SETCOLOR 15, 64777 
PRINT AT(4, 12) ;Mémorisation de la fonte système” 
PRINT AT(14,13); "Patientez..." 
a$=STRINGS (10000, CHR$ (0)) 
IF NOT EXIST("A:\MINI.PRG") 
CLS 
PRINT ‘Routine assembleur introuvable !!1" 
PRINT “Interruption.” 
ELSE 
BLOAD "A:\MINI.PRG",V:a$ 
deb=INSTR (300, a$, STRINGS (40, CHR$S (0) ) )+40+22+40*25*2+4%3 
FOR char=0 TO 95 
IF char>63 
car=char-32 








car=char 
ENDIF 
p=(car AND 1)*6HF0+(car AND 2)/2*6HF 
FOR t=0 TO 2 

POKE XBIOS (2)+chartt*160,p 
NEXT t 
FOR t=3 TO 5 

PORE XBIOS(2)+chartt*160, (car AND 4)/4*6HF0+(car AND 8)/8*6HF 
NEXT t 
FOR t=6 TO 7 
POKE XBIOS(2)+char+t*160, (car AND 16)/16*HF0+(car AND 32)/32*6HF 








PRINT AT(1+dar,2);" "; 
SELECT car 
CASE 94 
LINE dar*8+3,8,dar*8+3,15 
DRAW dar*8+1,10 TO dar*8+3,8 TO dar*8+5,10 
CASE 96 
LINE dar*8,11,dar*8+7,11 
CASE 95 
LINE dar*8,15,dar*8+7,15 
CASE 123 : 
LINE dar*8,8,dar*8,15 
CASE 124 
LINE dar*8+3,8,dar*8+3,15 
CASE 125 
LINE dar*8+7,8,dar*8+7,15 


CASE 126 
LINE dar*8,8,dar*8+7,8 
CASE 127 
PROX dar*8,8,dar*8+7,15 
CASE 92 
LINE dar*8,8,dar*8+7,15 
CASE 47 
LINE dar*8+7,8,dar*8,15 
DEFAULT 
PRINT AT(1+dar, 2) ;CHR$ (car); 
ENDSELECT 
IF MOD (dar, 2)>0 
dar=SUCC (PRED (dar) *4) 
ELSE 
dar=dar*4 
ENDIF 
FOR t=0 TO 7 
PORE 
V:a$ideb+768#t+char*8, PEEK (XBIOS (2)+ 
dar+#t*160+1280) 






























































PORE 
V:a$+deb+t+char*8, PEEK (XBIOS (2) +ch 


PRINT AT(14,12);"Extensions.…." 
DRAN 3,1 T0 0,3 TO 3,5 

LINE 0,3,7,3 

extend(1536) ! Flèche gauche (128) 
DRAN 0,3 70 7,3 TO 4,1 

LINE 7,3,4,5 

extend(1544) ! Flèche droite (129) 
LINE 3,0,3,7 

DRAN 1,5 T0 3,7 T0 5,5 
extend(1552) ! Flèche basse (130) 
LINE 3,0,3,7 

DRAR 1,2 TO 3,0 70 5,2 
extend(1560) ! Flèche haute (131) 
PRINT AT(1,1);"£"; 

extend(1568) ! 132 

PRINT AT(1,1);"°"; 

extend(1576) ! 133 

PRINT AT(1,1);"à"; 

extend(1584) ! 134 

PRINT AT(1,1);"&"; 

extend(1592) ! 135 

PRINT AT (1,1); "à"; 

extend(1600) ! 136 

PRINT AT(1,1);"é”; 

extend(1608) ! 137 

PRINT AT(1,1) ; "4"; 
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extend(1616) ! 138 
PRINT AT(1,1);"é"; 
extend(1624) ! 139 
PRINT AT(1,1);"6"; 
extend(1632) ! 140 
PRINT AT(1,1);"3"; 
extend(1640) ! 141 
PRINT AT(1,1};"û"; 
extend(1648) ! 142 
PRINT AT(1,1);"é”; 
extend(1656) ! 143 
PRINT AT(1,1);"à"; 
extend(1664) ! 144 
PRINT AT(1,1);"i"; 
extend(1672) ! 145 
PRINT AT(1,1);"6"; 
extend(1680) ! 146 
PRINT AT(1,1);"ü"; 
extend(1688) ! 147 
PRINT AT(1,1);"Ç"; 
extend(1696) ! 148 
PRINT AT(1,1);"c"; 
extend(1704) ! 149 
PRINT AT(1,1);"+"; 
extend(1712) ! 150 
PRINT AT(1, 1) ;CHR$ (246); 
extend(1720) ! 151 
PRINT AT(1,1);CHR$ (172); 
extend(1728) ! 152 
PRINT AT(1,1) ;CHRS (171) ; 
extend(1736) ! 153 
PRINT AT(1,1);"€"; 
extend(1744) ! 154 
PRINT AT(1,1);"æ"; 
extend(1752) ! 155 
PRINT AT(1,1);"8"; 
extend(1760) ! 156 
PRINT AT(1,1);"$"; 
extend(1768) ! 157 

CLS 

PRINT “Longueur totale de la 
routine : “;deb+1776 
BSAVE A:\MINI.INL",V:a$,deb+1776 








FOR t=0 TO 7 
PCKE V:a$+debnit,, PEER (XBIOS (2) #*160) 
BYTE{XBIOS (2)+t*160}=0 

NEXT t 

RETURN 





LISTING ASSEMBLEUR 1 


;* Routines d'émulation vidéotex 
#* Version 3.20, 12 Avril 1990 


attrib,a5 
#$80, (a5) 


; * Programme principal: traite les 

r * codes 8,9,10,11,12,13,14,15, 

; * 17,20 et 24, ainsi que certains 

: * codes ESCape. 

|; * X dans d0, Y dans dl, CAR dans d2, 
; * FONTE dans d3, et ROULEAU! dans d4. 
; * d5: boucles, dé répétitions, et d7 
‘ curseur. 


n * d3: 
…|; * bit 0 = Mode texte / mode graphique 
|; * bit 1 = Soulignement, texte, 
î masquage, graphique... 
|; * bit 2 = Double largeur 
|: * bit 3 = Double hauteur 
* * bit 4 = Inversion vidéo. 
|; * a0 pointe sur l'adresse 
| écran concernée 


|; * al sur le caractère de la fonte 
; * a2 sur un masque pour la 
fonte graphique quadrillée 
|; + a3 sur la matrice écran. 
; * a4 sur le fond (pas toujours...) 
; *X a5 sur l'attribut 


cmpi.w #31,d2 
ble traite 


; * Positionnement des pointeurs 
; * de fontes 


bsr convert 
lea.l  fond,a4d 
lea.l attrib,a5 
subi.w #32,d2 
mulu.w #8,d2 
; D2 pointe sur le premier 
; octet du caractère 
btst  #0,d3 
|| ; Serait-on en mode graphique? 
bne.s graphic 
lea.l 768+fontes,al 
; Fonte normale: 768 octets plus loin 
bra.s normal 
| graphic: 
“| lea.l fontes,al 
; Fonte graphique: la première 


lea.l  masque,a2 


movem.w regs, d0-d2 
; * ROUTINE PRINCIPALE 


btst  #3,d3 

; Double hauteur 

beq.s taillel 

cmpi.w #2,dl 

bhi.s dbletail 
#3,d3 
#2,d3 
regs,a6 
d3,6(a6) 
taillel 


suba.l #40*4*8,a0 

suba.l #40*nb elements, a3 
lea.l encre,aé 

; Sert à indiquer à l’attribut 
; de soulignement... 

bset #5, (aé) 

; ...que c'est le haut du caractère 
appel: 

bsr repet2 

lea.l encre,a6 

bclr  #5,(a6) 

ber distance 

adda.l #40*nb elements, a3 
movem.w regs;,d0-d4 

dbra d7,appel 

move.w (sp)+,d7 

cmpi.w #32,d2 

bne.s traisui 

bset  #7,(a5) 


: Si d70 alors afficher curseur 
bne curseur 
rts 


; * BOUCLE PRINCIPALE 


#0,43 
textr 
attrib, (ad) 
#7, (a5) 
#7, (ad) 
#1, d0 
repdeb 
#6,-1(a3) 
; Le soulignement du 
; carac d'avant! 
beq.s  effsoul 
bset #6, (ad) 


bra.s repdeb 
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Videotex = 





#6, (a4) 
repdeb 


#32, d2 
sans att 
#7, (a5) 
sans att 
(a), (a4) 
; Attrib -> fond 
bset #7, (a5) 
bset #5, (ad) 
bra.s repdeb 


#1,d0 
attm 
#580, (a4) 
repdeb 


-1(a3), (a) 
#7, (a4) 
#5, (a4) 


fond, 1 (23) 
encre, (a3) 
#1,d3 
; Si pas de masquage... 
beq aff ok 
; ...on va voir ailleurs 


; *X Quand le programme arrive ici, 
; * c'est qu'on est en masquage de 
: * caractères graphiques... 


#160,a0 
d5,bouc msk 


; * Cas où il n'y a pas d'inversion 
; * vidéo ni de masquage... 


aff ok: 

btst #0,d3 

; Est-on en mode graphique? 

bne textl 

; Si oui il y a une seule 

; taille possible 

; * Le mode graphique est maintenant 
: * complètement traité. 

;: * Reste 3 possibilités: 

; * - double hauteur 


beq.s 5 
cmpi.w #40,d0 
bne dble lar 
sui test: 

btst #41,d3 

: Inverse vidéo 
bne text1i 


; * Routine d'affichage la plus 
; * standard qui soit. Vérifie 


mm 






























move.b (al)+,d2 

bsr affich 

adda.l #160,a0 

dbra d5,bouc nor 

cmpi.w #1,d0 

beq.s fin nor 
#6,-1(a3) 
















#160, a0 
bsr soulignl 
#160, a0 








d0/d1, (ad) 
#1279, a0 
a0,d0 
#0, d0 
tinor 
#6,a0 





















#nb elements, a3 
fond, 1(a3) 
encre, (a3) 
d6,text1 
















bsr convert 
fond, 1 (a3) 
encre, (a3) 
d6,textl 
















; * On reprend la même, sauf qu'on 
; * fait de l’inversion vidéo 
text1i: 

bset  #6,(a3) 

; Marque de l'inversion vidéo 

; pour l'attribut à distance 

































.b (al)+,d 
not.b d2 
bsr affich 
#160,a0 
d5,bouc nr2 
#1,d0 

fin nr2 
#6,-1(a3) 
; Soulignement ? 
beq fin nr2 
suba.l #160,a0 
bsr soulign2 
adda.l #160,a0 
fin nr2: 

rts 


; * Il ne reste plus que la 
; * double largeur... 
dble lar: 

move.b fond, (nb elementst1) (a3) 
move.b encre, (nb elements) (33) 











































btst #4,d3 
; inversion vidéo 
bne text3i 


; * Traitement double largeur 


lar_ stnd: 
move.w d6,-(sp) 
move.w #7,d6 


(a), di 

; di=d5 et al pointe sur 
; l'octet à traiter 
move.b (al)+,d5 





dbra d0,bouc lar 


; à ce stade, d2 contient 
; l'octet “grossi” 


move.w a0,d0 
btst  #0,d0 
bne.s non st 
addq.l #1,a0 
bsr affich 
subq.l #1,a0 
bra.s aff lar? 


#7,a0 
bsr affich 
#7,a0 


bsr affich 
; (on ne peut pas traiter 
; le mot globalement) 





beq.s fin larl 
btst  #6,-1(a3) 
; Soulignement? 
beq fin larl 
suba.l #160,a0 
bsr . soulignl 
addq.l #1,a0 
move.w a0,d0 
btst  #0,d0 
beq.s larsoul2 
bsr soulignl 
bra.s fin larl 
larsoul2: 
addq.l #6,a0 
bsr soulignl 
fin larl 
move.w (sp)+,d6 
rts 





; * Le plus dur est fait. 
: * Maintenant inversion vidéo! 


text3i: 
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bouc lar2: 





#6, (a3) 
; Marquage inversion vidéo 
#6, (nb elements) (a3) 





move.b (al),di 

; di=d et al pointe sur 
; l'octet à traiter 
move.b (al)+,d5 












roxr.b #1,dl 
roxr.w #1,d2 
roxr.b #1,d5 
roxr.w #1,d2 
; D2 CONTIENT 2 FOIS 
; LE MêME BIT 
dbra  d0,bouc lar2 







; à ce stade, d5 contient 
; l'octet “grossi” 
























bsr affich 

; (on ne peut pas traiter 
; le mot globalement) 
adda.l #160,a0 

dbra d6,sui lar2 

lea.l 
cmpi.w #1, (a2) 

























fin lar2: 
move.w (sp)+,d6 
rts 





;* TRAITEMENT DE LA DOUBLE HAUTEUR 


repet2: 

cmpi.w #32,d2 
bne.s sans ath 
btst  #7,(a5) 
bne.s sans ath 
move.b (a5), (ad) 
; Attrib -> fond 





.b -1(33), (24) 

bset #7, (ad) 
|; Ce n'est pas un attribut 
“| bcir #5, (ad) 


| move.b fond, 1(a3) 








bset #5, (ad) 
: Un attribut, un vrai! 








#1, d0 
attrn2 
#580, (ad) 
repdeb2 
















; Ah mais vraiment pas alors 
























move.b encre, (a3) 


D ST rer 






\cmpi.w #40, d0 
[fbne  dble2 lar 
tests2: 

lbtst  #4,d3 
|; Inverse vidéo 
| bne text1i2 





|: * Routine d’affichage la plus 
; * standard qui soit. Vérifie 
EUX Les même le soulignement.. 


(ai) +,42 
affich 
#160, a0 
affich 
#160, a0 
d5,bouc2 nor 
#6,-1(a3) 





(al)+, d2 
not.b dd 

| bsr affich 
#160, a0 
affich 
#160, a0 
d5,bouc2 nr2 
#6,-1(a3) 












adda.l #160,a0 
fini2: 
its 


i * Il ne reste plus que la 
 * double largeur... 

dble2 lar: 

move.b fond, (1nb_ elements) (a3) 
move.b encre, (nb elements) (a3) 
































btst  #4,d3 
; Inversion vidéo 
bne text3i2 









lar2 stnd: 
movem.w d1/d6/d7, -(sp) 
move.w #3,d6 

hautlar: x 
move.w #1,d7 








sui2 larg: 

move.w #7,d0 

move.b (al),di 

: D1=D5 et al pointe sur 
; l'octet à traiter 
move.b di,d5 

bouc2 lar: 

roxr.b #1,dl 

roxr.w #1,d2 

roxr.b #1,d5 

roxr.w #l,d2 

; D2 CONTIENT 2 FOIS 

; LE MêME BIT 

dbra d0,bouc2 lar 

; à ce stade, d2 contient 
; l'octet ‘“grossi” 
move.w a0,d0 

btst 





aff2 lar2 








#7,a0 
affich 
#7,a0 








bsr affich 
: (on ne peut pas traiter 
; le mot globalement) 
adda.l #160,a0 

dbra d7,sui2 larg 
addq.l #1l,al 
dbra d6,hautlar 
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bsr 


Videotex 


souligni 


fin2soul2: 


adda.1 


#160, a0 


fin? larl: 
movem.w (sp)+,d1/d6/d7 


Iove.W 
move .b 


#7, 40 
(ai), di 


; di=d2 et al pointe sur 
; l'octet à traiter 


move .b 


di, d5 


bouc2 lar2: 


roxr.b 
LOXE.W 
roxr.b 
LOXC.W 


#1, d1 
#1, d2 
#1,d5 
#1,d2 


; D2 CONTIENT 2 FOIS 
; LE MME BIT 


dbra 


d0,bouc2 lar2 


; à ce stade, d5 contient 
; l'octet “grossi” 


not .w 
move .w 


d2 

a0,d0 
#0, d0 
non? st2 
#1,a0 
affich 
#1, a0 


affich 


; (on ne peut pas traiter 
; le mot globalement) 


adda.1 
dbra 
addq.1 
dbra 
btst 


#160, a0 
d7,sui2 lar2 
#1,al 


‘d6,hautlari 


#6, 1) (a3) 


; Soulignement? 


beq.s 
btst 
bne.s 
suba.l 


adda.l 


fin2 lar2 
#5, (a3) 
fin2 lar2 
#160, a0 
soulign?2 
#0, d0 
lar2soul3 
#1, a0 
soulign2 
fin2soul2 


#160, a0 


fin2 lar2: 
movem.w (sp)+,d1/d6/d7 


rts 


; * C'est fini! 













































distance: 
move .W 
move. 1 
move .b 
lea.l 
move.b 












































cmpi.w 



















beq.s 
andi.b 























btst 

; Souli 
beq.s 
bset 












btst 





; On récupère les valeurs 


; x/y et ASCIT 
bsr.s newx 
btst #2,d3 
beq.s fintot 
cmpi.w #1,d0 
bne.s newx 
fintot: 

rts 


; * Procédures 


; Allonge l'attribut 
; si besoin est 


regs, d0 
a0/a3/a4,-(sp) 
fond, d4 
encre, ad 
(a4),d5 

#$£, d4 

#2,d3 

disnorm 

#nb elements, a3 
#1, d0 

#1,a0 

a0,di 

#0,d1 

disnorm 

#6,a0 


#nb elements, a3 
#40, d0 


; Si fin de ligne 


fin 
1(a3),d1 
fond, d2 
#7,d2 
#7,d1 
d2,d1 
fin 
#7,1(a3) 


; Si autre attribut 


fin 
#$£0,1(a3) 
d4,1(a3) 
(3), (a4) 

#1, d0 
#40*4*8-1, a0 
a0,d1 

#0,d1 
incnorm 
#6,a0 


#7, dl 


6(a0),d2 
affich 

160 (a0) ,a0 
di, disbouc 


; * Ce cher soulignement 


#6, fond 
gnement 

disnorm 

#6,1(a3) 


; Soulignement dans la matrice 


#5, (a3) 


; Haut d'un caractère double hauteur 








bne.s disnorm 
lea.l -160(a0),a0 

btst  #6,(a3) 

; Inversion vidéo 

bne.s sinvdis 

; CAD: Soulignement INVersé 


move.b #$£f, (a0) 
subq.l #2,a0 
dbra d3,dbsoull 
bra.s dfsoull 










move.b #0, (a0) 


subq.l #2, a0 
dbra d3,dbsoull 


lea.l  162(a0),a0 
bra.s disnorm 

























move.b 1(a3),di 
addq.l #4,a0 


move.w #2,d3 









fin: 

move.b d5, (a) 
movem.l (sp)+,a0/a3/a4 
its 




















;: * Nouvelles coordonnées 
; À du curseur après 
; * affichage d'un carac 














newx: 

addq.w #1,d0 

; Renouvellement des x,y 
cmpi.w #40, d0 

ble fin x 

cmpi.w #1,dl 

bne suit aff 

move.w #40, d0 

bra.s finx 


addq.w #1,dl 
subi.w #40,d0 
cmpi.w #25,dl 
ble.s finy 
tst.w. d4 
bne.s roule 
move.w #2,d1 
bra.s finy 


















move.w #25,dl 
bsr scrollh 



























btst #3,d3 

: Double hauteur? 
beq.s finx 
addq.w #1,d1l 
cmpi.w #25,d1l 
ble fin x 
tst.w dd 

bne.s roule? 
move.w #2,d1 
bra.s fin x 
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roule2: 
move .W 
bra.s 

fin x: 
rts 















RARES d4/d5, -(sp) 


move.b 


addq.l 


rts 











btst 


beq 
sou2ok: 















bsoul2: 
btst 





soulign2 


#25,d1 
scrollh 





: * Routine d'affichage couleur 


#255, (a0) 
d5,d4 
affin 
d2, (a0) 
(a0) 
affin 


#0, (a0) 


encre, d4 


d5, d4 


#$£f, (a0) 


#2,a0 


d5,bsoull 
finsoull 


#0, (a0) 
#2,a0 


d5,bsoull 


#2,a0 


movem.w (sp)+,d4/d5 


#7,1(a3) 
fin x 


movem.w d4/d5,-(sp) 
move.b fond, d4 
addq.l #4,a0 


move.w #2,d5 


d5, d4 


























Mbeq.s svid2 
Mmove.b #$££, (a0) 
suba.l +#2,a0 
udbra  d5,bsoul2 
Mbra.s finsouli 

lsyvid2 : 

|Pmove.b #$00, (a0) 
Msuba.l 42,20 
AMdbra  d5,bsoul2 
Madaqg.1 42,20 
| moven.w (sp)+, d4/d5 


| rs 


traite: 
htst.w d7 
Mbeq.s gauche 
curseur 





encre, ad 
color, (a4) 
memd3, d3 
attrib,a4 
mematt, (ad) 
| fin gen 


orvbr' vtr 


IRIHEU 


£ £ 


GE 


B£ 
B 





i fu Routine de traitement des 
| l; * codes de contrôle 





#1,d0 


a0,d1 
#0,d1 
impair24 
#1279, a0 
#41, d0 
post24 
stest24 


#1273,a9 
#41, d0 
post24 


#6, (a4) 
; Soulignement? 
beq.s suit24 
btst  #0,d3 
; Mode graphique? 
bne.s suit24 
movem.w regs, d0/d1 
bsr convert 
; * Traitement du code 24 adda.l #40*4x7,a0 
cde24: 
cmpi.w #24,d2 
bne.s ctrl 


: Positionement de l’attribut de fond, 
; qui sera le même pour toute la ligne 


attrib, (ad) 
#7, (a4) 
b24 


#1, d0 
attrn24 
#$80, (ad) 
b24 


-1(a3), (24) 
#7, (a4) 
45, (ad) 


#4,03 
vide24 
encre, a2 
#6, (a2) 
H$££, d 
post24 


#0,d2 


#3,d3 
; Double hauteur? 
beq.s tail1124 tst.w d2 
bne.s inv24 
cara24: 
move.b #0,6(a0) 
bsr sou2ok 
adda.l #160,a0 
dbra  dl,cara24 
move.b encre, (a3) 
move.b (a4),1(a3) 


; code 24 double hauteur 
suba.l #40*8*4, a0 

suba.l #40*nb elements, a3 
bsr.s bouc?4 

adda.l #40*nb elements, a3 
tai11124: 

bsr.s bouc24 
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Videotex e 


#nb elements, a3 


: On se sert de D2 pour déterminer 
; si on est en inversion vidéo 











#$££, 6 (a0) 
soulok 
#160, a0 
di, inv24 
encre, (a3) 
(a4),1(a3) 


#14, d2 
texte 
#1,d3 
attrib,a6 
#53£, (a6) 
fin gen 


#15,d2 
home 
#0, d3 
attrib,a6 
#$b£, (a6) 


move .w 
move .w 
move .Ww 
bsr 
bra.s 


; Bascule le curseur coordonnées 
; écran: (d0,d1). 

; CONVERT convertit les coordonnées 
; écran en adresses. 

curseur: 

movem.w d0/d1,-(sp) 

bsr convert 

move.w #7,d0 

hide2: 

not.b (al) 





not.b 2(a0) 

not.b (4) (a0) 
adda.l #160,a0 
dbra d0,hide2 
movem.w (sp)+,d0/d1 
rts 


convert : 


lea.l regs,ad 
movem.w d0-d4, (ad) 
subq.w #1,d0 

; Conversion x,y en 

; adresse écran 

mulu.w #nb elements, d0 
subq.w #1,dl 

lea.l matrice,a3 
adda.l d0,a3 

mulu.w f#inb elements*40, dl 
adda.l di,a3 

movem.w regs, d0/d1 


subq.w #3, d0 


convsuit : 


mulu.w #40*4*8,d1 
movea.l phys,a0 
adda.l d0,a0 
adda.l di,a0 

rts 


; Efface l'écran 


: à partir de la deuxième ligne 


cls: 


movem.l d0-d7,-(sp) 

lea.l matrice,a3 

adda.l #40*nb elements*25,a3 
; Fin de l'écran 

movem.l erase,d1-d7/a4-a6 
move.w #23,d0 


clsbc1: 


movem.l di-d7/a4-a6,-(a3) 
movem.l di-d7/a4-a6,-(a3) 
dbra  d0,clsbcl 
movem.l (sp)+,d0-d7 
movea.l phys, a0 
#1280,a0 
#7679, d0 


#0, (a0)+ 
d0 ,boucle 
#1,d0 

#2, dl 

d3 

coord, a0 
#0, (a0) 


; Scrolling vers le haut 


scrollh: 


movem.l d0-d4/d6/d7/a1l,-(sp) 
lea.l matrice,a3 

adda.l #40*nb elements,a3 
; 2ème ligne 

movea.l a3,a4 
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adda.l #40*nb elements, a4 
; 3ème ligne. 
move.w #23-1,d0 
; 25-2 lignes 





















































scrhbc: 

movem.l (a4)+,d1-d7/a0-22 
movem.l di-d7/a0-a2, (a3) 
movem.l (a4)+,d1-d7/a0-a2 
movem.l d1-d7/a0-a2, 40 (a3) 
lea.l 80(a3),a3 

dbra  d0,scrhbc 


movem.l erase,d1-d7/a4-a6 
movem.l di-d7/a4-a6, (a3) 
movem.l di-d7/a4-a6,40 (a3) 


; Copie la 1ère ligne 1 ligne 
; plus bas 


movea.l phys,a0 

movea.l a0,al 

adda.l #$500,a1 

move.w #3,d0 

lignelh: 

movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6, (al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,48 (al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,96(al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,144 (al) 


movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,192 (al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,240 (al) 
movem.l (a0)+,d1-d7/a2 
moven.l di-d7/a2,288 (al) 
lea.l 320(al),al 

dbra  dO0,lignelh 


movea.l phys,a0 
adda.l #$500,a0 


cmpa.l physmax, a0 
bne.s  deplh 


: Déplace physiquement 
; l'écran vers physmed si 
; nécessaire 


movea.l physmed, al 

move.w #4*24-1,d0 
scroll1: 

movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6, (al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6, 48 (al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,96(al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,144 (al) 


movem.l (a0)+,d1i-d7/a2-a6 
movem.l di-d7/a2-a6,192 (al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l d1-d7/a2-a6,240 (a) 
movem.l (a0)+,d1-d7/a2 
moven.1 d1-d7/a2, 288 (a) 


lea.l 320(al),al 






















dbra d0,scrol1l 
movea.l physmed, a0 


move.l a0,{(al) 


adda.l #32000,a0 
movem.l erase,d1-d7/a3-a5 
move.w  #3,d0 

ctrly: 

movem.1 di-d7/a3-a5,-(a0) 
movem.1 d1-d7/a3-a5, - (a0) 
movem.l d1-d7/a3-a5,-(20) 
movem.1 di-d7/a3-25, -(a0) 
movem.l d1-d7/a3-a5,-(a0) 
movem.1 di-d7/a3-a5, - (a0) 
movem.l di-d7/a3-a5,-(a0) 
movem.1 d1-d7/a3-a5,-(a0) 


dbra  d0,ctrly 

move.w #-1,-(sp) 

move.l phys,-(sp) 

move.l phys,-(sp) 

move.w #5,-(sp) 

trap fée 

adda.l #12,sp 

movem.l (sp)+,d0-d4/d6/d7/al 
rts 


; Scrolling vers le: bas 
; Concerne le code 11 


scrolld: 

movem.l d0-d4/d6/d7,-(sp) 
lea.l matrice,a3 

adda.l #40*25*nb elements, a3 
; Fin d'écran 

movea.l a3,a4 

suüba.l #40*nb elements+40, a4 
move.w #23-1,d0 


scrdbc: 

movem.l (ad) ,d1l-d7/a0-a2 
movem.l di-d7/20-a2,-(a3) 
movem.l -40 (ad) ,d1-d7/a0-a2 
moven.l di-d7/a0-a2, - (a3) 
lea.l -80(a4),a4 

dbra d0,scerdbc 


lea.l matrice,a3 

adda.l #40*nb elements, a3 
movem.l erase,di-d7/a4-a6 
movem.l di-d7/a4-a6, (a3) 
movem.l di-d7/a4-a6, 40 (a3) 


; Copie la lère ligne 1 ligne 
; au-dessus 


movea.l phys,a0 


movea.l a0,al 
suba.l #$500,al 


movem.l (a0)+,d1-d7/a2-a6 








movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,192 (a) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l di-d7/a2-a6,240 (a1) 
movem.l (a0)+,d1-d7/a2 
movem.l di-d7/a2,288 (al) 
lea.l 320(a1),al 

dbra d0,ligne2h 






movea.l phys, a0 
suba.l #$500,a0 
cmpa.l physmin,a0 
bne.s deplb 






; Déplace physiquement 
; l'écran si nécessaire 





adda.l #32000-48,a0 
movea.l physmed, al 
adda.l #32000,a1 
move.w #4*25-1,d0 
scrol12: 

movem.l (a9),d1-d7/a2-a6 
movem.l di-d7/a2-a6,-(a1) 
movem.l -48(a0) ,d1-d7/a2-a6 
movem.l di-d7/a2-a6,-(al) 
movem.l -96(a0),d1-d7/a2-a6 
movem.l di-d7/a2-a6, - (al) 
movem.l -144 (a0),di-d7/a2-a6 
movem.l di-d7/a2-a6, - (ai) 
movem.l -192 (0) ,di-d7/a2-a6 
movem.l di-d7/a2-a6,-(a1) 
movem.l -240 (20) ,d1-d7/a2-a6 
moven.l di-d7/a2-a6,-(a1) 
movem.l -272(a0),d1-d7/a2 
moven.l di-d7/a2,-(a1) 

lea.l  -320(a0),a0 

























move.l a0,(al) 
movem.l erase,d1-d7/a3-a5 
move.w #7,d0 

movea.l phys,a2 

adda.l #2560,a2 

ctrly2: 

movem.l di-d7/a3-a5, -(a2) 
movem.l di-d7/a3-a5, -(a2) 
movem.l d1-d7/a3-a5, - (a2) 
movem.l di-d7/a3-a5, -(a2) 
dbra  dO0,ctrly2 
move.w #-1,-(sp) 

move.l a0,-(sp) 

move.l a0,-(sp) 

move.w #5,-(sp) 

trap  f#$e 
#12,sp 





movem.l (sp)+,d0-d4/d6/d7 
rts 


Videotex 


















































DSL 
physmax: .DS.1 1 
DS.1 1 

Ds 


.DS.w 5 
matrice: .DS.b 40*25#nb elements 
fontes: .DS.w 1 
.END 









LISTING ASSEMBLEUR 2 


; INSTR2.L 
;: Recherche du prochain SUITE 
; Paramètres: à partir de, longueur max 


movea.l 4(sp),a0 
movea.l 8(sp),al 


#519, (a0)+ 
suite £ 
#548, (a0)+ 
fin 


a0,al 
ÿ boucle 
movea.l #0,a0 
fin: 
move.l a0,d0 
rts 


LISTING ASSEMBLEUR 3 


; INSTR.L 


; Recherche du prochain CLS 

; Paramètres: adresse de départ, longueur 
maximale 

movea.l 4(sp),a0 

movea.l 8(sp),al 


#12, (a0)+ 
fin 
a0,al 












movem.l di-d7/a2-a6, (al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l d1-d7/a2-a6, 48 (al) 
moven.l (a0)+,d1-d7/a2-a6 
movem.l d1-d7/a2-a6,96(al) 
movem.l (a0)+,d1-d7/a2-a6 
movem.l d1-d7/a2-a6,144 (al) 


Zone des données : il y a 2 fontes, 
une pour le texte, et l'autre pour le 
semi-graphique. Elles doivent être mises 
en place par l'utilisateur. 

Elles sont suivies des accents et autres 
caractères spéciaux. 


: boucle 
movea.l #1,a0 
fin: 
move.l a0,d0 
subq.l #1,d0 
rts 
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AO EN OCES 53 9 





Vends 1040 STE, souris, moniteur couleur SC 
1425 (11/89) + 50 disquettes, le tout 5400F. Tél : 
(1) 39 85 90 90 ou 24 54 21 20. 


Vends Atari 1040 STF (lecteur double face), lec- 
teur externe, moniteur mono SM 125, impri- 
mante Citizen 120D, softs, le tout 5000F Bigo : 
(1) 42 80 02 35. 


Vends photocopieuse 3M type 207, TBE avec 
meuble sacrifié, 2900F. Tél : 40 50 01 71. 


Vends disque dur SH205 : 2700F, émulateur PC 
Supercharger 1 Mo de mémoire : 2300F lecteur 
51/4 40/80 pistes externe : 1000E Turbo C pour 
PC français ou international : 500F, Paradox 3 PC 
complet : 3500F. Tél : 30 76 07 72, le soir. 


Echange Amiga 1000 contre Atari 1040 STE (en 
bon état) ou vends à 3900F, cause musicien en 
pénurie de logiciels ! Tél : 69 38 52 40, deman- 
der Laurent (dans le 91). 


Vends Atari 1040 ST, moniteur, imprimante, log 
TDT, souris : 5000F. Tél : 48 26 04 80 après 18h. 


Vends Atari 520 STE (garanti jusqu’en Jan. 91), 
souris, jeux, utilitaires, le tout en très bon état : 
2700F à débattre. Peut se déplacer sur Paris et 
banlieue proche. Tél : 43 06 41 88 à partir de 
17h30, demander Martin. 


Vends Atari Mega ST 1 monochrome, Citizen 120 
D, GfA 3, 6 livres sur GfA, le Rédacteur, Time- 
works, flexdisc, jeux, joystick, avec ST Mag numé- 
ros 9 à 35. Le tout 9000Ë Tél : Yann au 48 57 73 27. 


Urgent ! Vends Atari 1040, lecteur double face, 
livres, utilitaires, jeux, GfA Basic et bien 
d'autres. Le tout sacrifié pour 2000F. Alamaru, 
Tél : 47 83 66 65 ou 43 99 99 66. 


Vends Amiga 2000 (89), écran couleur 1084, 
carte PC XT, disque dur 20 Mo, peu servi : 
15000F. Tél : 47 51 00 19. 


Vends Atari Mega ST 1, moniteur monochrome 
SM 124, imprimante Epson LX 800, pro- 
grammes, le tout : 7500F. Contacter M. Narcy : 
(dom) 45 35 88 79, (job) 45 58 34 24. 


Vends Atari 520 ST + joystick, état neuf, 1900F. 
Tél : (1) 69 06 24 52. 


Vends 1040 STF (août 88), étendu à 3 Mo, blitter, 
horloge, ressorts clavier, état neuf : 4500F. Vends 
disque dur SH205, parfait état : 2700F. Sébas- 
tien, au 42 45 10 12. 


A vendre logiciel Superbase Professional 3, 
achat 5/90, prix : 2490F, vendu 2000F, cause 
erreur achat. Tél : 60 86 63 14 après 19h. 


Vends Mega ST 2, SM 124, SH 205 (HD 20Mo), 
Mark Williams C, Minix (Unix en source), Joys- 


tick. parfait état. L'ensemble 10000F Tél : 42 72 * 


97 79, après 19h. 


Le roi des logiciels de traitement de texte : 
Signum 2! Vendu pas cher cause double emploi : 
700F. Olivier, au 40 44 65 26. 


Stop affaire ! Vends softs : Dungeon Master 
(150F), Bloodwich 1 et 2 (150F chaque), Oblite- 
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ANNONCES 


rator (100F), Infestation (200F), Hard Driving 
(200F) et utilitaires : Dali 3 (450F), STOS (600F), 
Spack (250F), Turbo ST (250F), Script (300F), 
The Killer (200F), Oss Pascal (300F). Tél : 47 32 
41 19 ou 47 52 11 82. 





Vends originaux état neuf pour ST : Adimens 
400F, LDW Power 700F, Script 400F, ZZ-Rough 
1.1 200E Muitiface ST 400F. Tél : 64 66 23 62. 
Vends Atari 1040 ST + moniteur couleur + 
imprimante Mannessmann 81 + joystick + logi- 
ciels. Très peu servi encore garanti, prix : 5500F. 
Tél : 48 95 82 %. 


Vends 520 ST étendu à 1 Mo : 1700F, lecteur 
externe SF 314 DE : 1000F, moniteur mono SM 
124 et inverseur mono/couleur : 1000F, impri- 
mante Epson LX800 avec tracteur listing 1600F. 
Tél : 34 69 28 40. 


Vends Amiga 2000 (moniteur A1084, UC, cla- 
vier, DD 30 Mo, XT, lecteur 51/4, tte la docu- 
mentation d’origine et les logiciels + logiciels de 
jeux), 1 an et demi, très bon état, 17000F. Tél : 43 
04 35 00, après 20h, Ahmadou. 


Vends Mega ST 4, Megafile 30, lecteur externe, 
Nec P2200, Aladin 3.0, Exchanger, Handy Scan- 
ner, ensemble de logiciels originaux (PAO : 
Calamus et PPM, CAO, puis des jeux...), le tout : 
25000F. Tél : 40 37 36 76. 


A4 DIN 6 D CES 9:10) 41110) 


Cause achat Mac, vends disque dur Megafile 30 
(neuf, janvier 90) : 4000F. Imprimante Seikosha 
SL8OAI 24 aiguilles : 2800E logiciels Le Rédacteur 
3 (neuf) : 800E Calligrapher Pro (neuf) : 1000F, 
Publishing Partner Master (jamais servi) : 2000F, 
G+PLUS, Induction, Calcomat 2. Tél : 99 31 17 25. 


Vends imprimante Mannesmann Tally MT81 
TBE, encore sous garantie jusqu'au 15/1/91 : 
1000F, nombreux livres sur le ST de chez Micro- 
Application, free-boot externe : 50F, joystick 
infrarouge : 100F. Tél : 40 20 34 24 ou 51 22 05 05. 


Vends originaux Marble Madness : 100E, Silent 
Servie : 150F, Explora : 150F, BEA : 150FE, Mind- 
fighter : 200F, Twist : 200F, Image Scan : 1000F, 
ZZ-Lazy Paint : 600F. Après 19h, Tél : 99 51 64 37. 


Vends Interface DMA/SCSI de DCI, avec soft, 
garanti, neuf, jamais servi : 950F. Vends original 
du GfA Basic 3.0 + mise à jour 3.5 : 550F. Tél : 
Jean-Pierre au 50 49 09 04 après 18h30. 


Vends RAMSs 41256 à 100ns : 30F pièce (moins si 
grande quantité). Tél : 35 87 13 78 (après le 27 juillet). 


Vends 50 fontes GDOS soignées, 94 caractères, 
hauteur 30 à 60 points, classiques et fantaisie. 
Prix : 5F la fonte, plus disquette. Hardcopy sur 
demande. Tél le matin : 87 86 68 09. 


A vendre Mega ST 2, moniteur mono, impriman- 
te Star LC-10, 40 jeux, joystick, langages (C, Basic), 
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PAO-DAO : 10000F Tél : 67 76 23 87 après 18h. 


Grande Braderie’: Atari Mega 4E : 12960F, STE 4 
Mo : 6200F STE 2 Mo : 4800F, moniteur multi- 
sync couleur 800x600 avec interface Atari : 
4200F, disque dur SCSI 40 Mo : 5600F, extensions 
mémoire SIMM/SIP à 1 Mo : 400F, à 2 Mo: 
2500F (tous sous garantie), laser 6 pages/mn : 
6800 F (occase). Tél : 56 92 08 O2. 


A vendre 1040 ST + SM 124 TBE 3900F impri- 
mante STAR LC24/10 (Fév 90) très peu servie, 
sacrifiée : 2200F, expandeur Kawai PHM 200 
sons, poly 30 voies, multi 4 voies + drum kit : 
1850F. Logiciels (originaux) Mégapage (avr 90) : 
600F, émulateur PC Ditto avec carte enregistre- 
ment 400F, GfA Raytrace 270F. Expéditions pos- 
sibles. Tél : 58 41 55 19 (sud-ouest). 


Scanner A4 à plat (imprimante, photocopieuse), 
peu utilisé avec soft et programme “Image Part- 
ner” original : 5500F (port compris). Ecrire à 
EGreniet, 10 rue Curtat, 1005-Lausanne, Suisse. 


Vends originaux pour Atari ST : Ninja Warriors, 
Robocop, Chase HQ, Ivanhoé, Rainbow Island, 
Chamber of Shaolin, Strider, Dragon Ninja, 
Hard Drivin, Ninja Spirit, Speedball, F29, 
Xenon 2, Tennis Cup, de 79 à 94 francs, et BAT, 
250F. Tél : 99 52 06 78 ou 40 34 35 79. 


Vends Aladin complet, version 3.0 dans sa boîte 
d'origine 1500F. Tél : 99 48 02 52. 


Vends banque de rythmes format Pro 24 en 
deux disquettes : Breaks + Rythmes : 250F conte- 
nant plus de 1000 patterns pour D110 Roland. 
Masson Marc, 3 allée de Picardie, 54390 Frouard. 


V. Ve): PU NC 2:10) 41110) > 


Achète Atari 1040 STE ou Mega ST 1 + écran 
couleur + souris + logiciels originaux. Etat neuf 
pour 4800F. Contacter d'urgence Mathieu au 62 
96 03 26 après 20h. 


EMPLOIS 





Application Systems recherche des technico- 
commerciaux. Téléphoner au (1) 40 92 80 81 
pour rendez-vous. Poste basé à Montrouge. 


Cherche personne sur Paris pour diriger un jour- 


nal. Pour tout renseignement, tél : (1) 46 87 23 15, 
demandez Guerchon, laissez un message si absent. 


DIVERS 





Recherche plans complets 520 STE, Faire offre 
au (1) 30 57 13 10 après 19h. 


Cherche local sur Paris. Pour toutes proposi- 
tions, écrire à M. Guerchon Patrick, BP 78, 
94320 Thiais. 


Recherche programmeurs en assembleur, gra- 
phistes, musiciens sur ST pour faire des démos. 
Berogin Sébastien, 18 rue de la Liberté, 54300 
Chanteheux. Tél : 83 73 70 77. 


Pour passer une annonce, prenez le bulletin du 
mois dernier, joignez-y 50 F à l'ordre de Pressimage 
(ou 25 pour les abonnés). Envoyez le tout à ST 
Magazine-PA, 19 rue Hégésippe Moreau, 75018 
Paris, avant le 20 août pour la parution du 10 sep- 
tembre. Ouf ! 








- LA BOUTIQUE DE 
PRESSIMAGE 


La Boutique sera fermée du 15 juillet au 15 août, 
il est donc inutile de commander pendant cette 
période car les commandes ne seront servies 
qu’à partir du 15 août. Pour nous faire 
pardonner ce long, mais cependant indispensable, 
mois d’absence, vous aurez la joie de découvrir 
dans le numéro de septembre, notre nouveau 
catalogue bourré de surprises et de nouveautés ! 


LES NOUVEAUTÉS DU MOIS 


LE JOUEUR DE CARTES" 
Mous modèles de ST. Couleur uniquement. 
75 francs. 
Le Joueur de Cartes vous propose de jouer à 
trois variantes de réussite sans avoir à 
mélanger les cartes, à les distribuer, à les 
ramasser et recommencer le tout. Le 
programme se charge de tout, il vous suffit 
de cliquer ! 
La première variante s'appelle REUSSITE. 
Les cartes sont réparties sur sept colonnes. 
Le but de la partie est de les ranger par 
couleur dans l'ordre croissant en commençant 
par l'As. 
-La seconde porte le nom de PATIENTE. 
WNous devez regrouper les cartes en un mini- 
muTruIn de paquets. Les cartes sont distribuées 
une à une de gauche à droite à la première 
ligne, puis en sens inverse à la ligne 
suivante, etc. Vous pouvez opérer un 
regroupement lorsque deux cartes de même 
‘couleur ou de même valeur ne sont séparées 
que par une seule carte. Cliquez sur la carte 
“du milieu : elle recouvre celle qui la précède 
et toutes celles qui suivent sont décalées d’un 
cran. 
=. La troisième réussite est l'une des plus con- 
nues, c'est le SOLITAIRE. 
“Le plateau de jeu est composé de 4 colonnes, 
sur lesquelles les cartes sont distribuées 4 
par 4. Lorsque 2 des cartes visibles sont de 
la même couleur, la carte la plus faible est 
éliminée. La carte de plus forte valeur pour 
cette réussite est l'As. Pour gagner vous devez 
“terminer la réussite avec seulement un As 
dans chaque colonne. 
Vous possédez 500 picaillons (la monnaie lo- 
cale) au début du jeu. Chaque fois que vous 
‘commencez une réussite, vous devez miser 
une somme variant entre 50 et 300 picail- 
lons. Les gains diffèrent selon les variantes. 
Une excellente compilation avec des écrans de 
jeux superbement réalisés. 


U-220 MIDI PROGRAMMER" 

Pour tous modèles de ST sauf les 520. 
(minimum 1 mégaoctet de mémoire) 
Monochrone uniquement. 

195 francs. 

Le U220 Midi Programmer permet l'édition et 
la sauvegarde de l'ensemble des paramètres 
éditables de l'expandeur Roland U-220. Ce 
logiciel est conçu pour être utilisé 
conjointement avec un clavier maïître. La 
transmission des données dans le sens U-220 
=> ST n'est nécessaire que lors du lancement 
du programme (phase d'initialisation) des 
informations provenant d'un clavier externe. 
Les principales caractéristiques de cet éditeur 








BON DE COMMANDE 








© 
se 


HUILE 













FRAIS DE PORT 


(15 francs, sauf indicalions contraires) 
NET A PAYER 


LOGICIELS ATARI 
LOGICIELS AMIGA 


BON DE COMMANDE A RETOURNER A: 
LIBRAIRIE PRESSIMAGE 
210 rue du Faubourg St MARTIN 
75010 PARIS 





J'ai connaissance du fait que certains 
produits ont une notice ou un écran en 
langue anglaise et je désire les acquérir. 

Veuillez expédier ma commande à l'adresse 
suivante : 


DATE" frire /1990 


SIGNATURE: (celle des parents pour mineurs) 


Ci-joint mon règlement à l’ordre de 
PRESSIMAGE, 


Etranger, nous consulter. 
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(15 francs, sauf indications contraires) 
NET A PAYER 


LOGICIELS ATARI 
LOGICIELS AMIGA 


BON DE COMMANDE A RETOURNER A: 
LIBRAIRIE PRESSIMAGE 
210 rue du Faubourg St MARTIN 


75010 PARIS 


J'ai connaissance du fait que certains 
produits ont une notice ou un écran en 
langue anglaise et je désire les acquérir. 
Veuillez expédier ma commande à l'adresse 
suivante : 


SIGNATURE: (celle des parents pour mineurs) 





Ci-joint mon règlement à l'ordre de 
PRESSIMAGE 
Qi Chèque 
MRC 


Etranger, nous consulter. 





sont : l'édition des timbres, gestion des 
banques de timbres, édition des patches, 
gestion des banques de patches, édition des 
configurations rythmiques (rhythm set), 
édition des tableaux de correspondance 
(maps), édition de la configuration générale 
(Setup), fonctions de dump (timbre, patch, 
rhythm set, map, all datas), transmission 
immédiate des paramètres... La convivialité 
du U220 Midi Programmer vous permettra 
d'utiliser facilement les immenses possibilités 
de votre expandeur et d'éviter les fastidieuses 
séances de réglages directement sur le U220. 


"ASSEMBLEUR N° 2" 

Pour AMIGA. 75 francs. 

Cette disquette régroupe certains des listings 
parus dans le cahier Amiga de ST Magazine à 
partir du numéro 38, certains listings "n'ayant 
pas encore été intégralement publiés. Elle 
contient les codes sources complets en 
assembleur et en Gfa 3 des programmes : 
TURMITES (ST Mag 40 et 41), PALETTES (ST 
Mag 38) ainsi que DESSASEMBLEUR (avec 
version compilée) et DEBUGGER. 


"DISCPAC" 

Pour tous modèles de ST. Monochrome et couleur. 

20 francs. 
DISCPAC est ce qu'on appelle souvent un 
"éditeur de secteurs”. Il permet de visualiser 
et de modifier (éditer, donc) le contenu d'une 
disquette, qui est organisée en pistes, elles- 
mêmes divisées en secteurs.:DISCPAC est 
composé de 2 parties principales, La partie 
supérieure de l'écran permet de visualiser et 
d'éditer le "secteur" en cours, la partie 
inférieure permet de choisir le secteur que 
l'on désire éditer, d'effectuer des recherches, 
de changer de mode, de définir des 
paramètres, ou encore de quitter le 
programme. DISCPAC peut travailler dans 
trois modes différents: PHYSIQUE, LOGIQUE, 
et FICHIER. Après avoir choisi un mode 
d'édition, un lecteur et un secteur à éditer, le 
secteur est automatiquement affiché, repérani 
en permanence la position du curseur (rec- 
tangle clignotant), et la représentation en 
ASCII, hexadécimal, décimal et binaire de 
l'octet correspondant. Il arrive souvent que 
l'on sache quoi modifier (par exemple le nom 
des meilleurs joueurs dans une table de 
Hi-Scores), mais.que l'on ne sache. pas"ot 
cela se trouve précisément. On utilise alors la 
fonction recherche, qui permet de spécifier 
une chaîne de caractères que DISCPAC cher- 
chera sur tout le disque. Si vous avez des 
questions, remarques, suggestions, critiques, 
n'hésitez pas à déposer un mot dans la BAL 
STJC sur les serveurs de Pressimage, acces: 
sibles par le 3615 STMAG ou le 3615 GEN4. 


"TRACK-BALL'" du nouveau..." 
Vous pouvez maintenant vous procurer notre 
fantastique et géniale super souris en.'deux 
modèles différents. TRACK-BALL SOURIS 
c'est tout simplement une méga-souris à deu? 
boutons au prix de 290 francs. 

Vous pouvez également vous procurer le 
TRACK-BALL JOYSTICK, qui, lui, émule er 
plus de la souris les fonctions d'un joystick 
Il est disponible pour 345 francs. 


10, boulevard de Strasbourg TR rue à Paul Chen 


75010 PARIS  & 42.06.50,50 oui LYON Æ& 72.00.96.96 | 
| »  ouverttous les jours sauf dimanche LE G RAN D S PEC : ALIST 
Pour tout achat, GVL vous offre 1 heure 


54, rue René-Boulanger 


SAV : . # n 
75010 PARIS Æ 42,06. hs 78 de stationnement sur présentation du 
ouvert du mardi au samedi ticket de parking du Quai de la Pecherie 

Mmétro Strasbourg/St-Denis - Parking à proximité ouvert du mardi au samedi 


Magasins ouverts de 9 h 45 à 13het de 14h à 19h de9h45à13hetdei4hà19h 


psauerre "72 | GENERAL vous offre 
PPO0 ER votre ATARI 520 STE 


ecmoens D EHEREEME CONFIGURATION | 
LECTEUR 37/2 NL SR MIDI COMPLETE 


{LECTEUR 51/4 de - FL 228 ATARI 520 STE 
| ATARI EMI ne. MR + ST REPLAY 


CLAVIER PC2000 DYNAMIC 6 OCTAVES + SEQUENCEUR 10 \ 
- PISTES TENTRAX + EXPENDEUR ROLAND CM32L, 128 SONS, | 
ATARI PC AT | REVERB + MINI MONITEUR AUDIO AMPLIFIER 2xMA12C 


# LABC EGA F= | commenter, D renseigner, | 


| jouer et gagner, c’est simple : tapez | 


3615 


D'4: 


[ CONSOLE ATARILYNX 





A vorre 
matériel | 

maintenant et 

“ PAYEZ en 

| OCTOBRE’ 


* Achat minimum 2000 F, après acceptation du dossier 


640 Ko extensible à 4 Mo 
Disque dur 30 Mo 
Microprocesseur 80286 
Lecteur 3”1/2 1,44 Mo 
Clavier 102 touches | 
3 slots d'extension 
Interfaces série et parallèle 


_— 
— 
— 
— 
— 
_ 
— 


+4 JEUX 














das |sPeciautsre /X ATARI 


Tél. 72.00.96.96 










Depuis son introduction, le 520 ST 
s'est imposé comme l'incamation de 
la technologie de pointe à la portée de 
tous : processeur 16 / 32 bits, puis- 
sance de traitement, rapidité d’éxecu- 
tion, capacité mémoire, ouverture 
vers les périphériques. Le tout maïi- 
trisé grâce à la convivialité et la sim- 
plicité de l’environnement graphique 
GEM et de la souris. 

Son avance technologique et la ri- 
chesse de sa bibliothèque de logiciels 
ont fait du 520 ST un micro fascinant 
dans tous les domaines: création 
graphique, musique, éducation, pro- 
grammation et jeux. 

Pour offrir encore plus de performan- 
ces, ATARI lance aujourd’hui le 520 
STE. La couleur, le son, les interfaces, 
la mémoire, la vidéo, le système d'ex- 
ploitation, autant d'innovations pour 
autant de domaines d’applications. Le 
STE est résolument la machine de 
tous les loisirs. Jamais le grand public 
n’a eu autant d'atouts technologiques 
entre ses mains, pour son plus grand 
plaisir. Lorsqu'on sait que malgré ses 
fantastiques nouvelles possibilités, le 
prix du STE reste inchangé par rap- 
port à celui du ST, il n'y a plus d'alter- 
native dans le choix d’un micro-ordi- 
nateur de loisir. 


A crédit CETELEM : 90F au comp- | 
ATARI 520 STE tant + 18 mensualités de 227,90F | 
1e échéance 90 jours après achat 


F TIC Coûttotal du créditavec assuran- À 
ce : 820,40F dont 120F de percep- 















tion forfaitaire - TEG : 17,92 % 











ATARI 520 STE A crédit CETELEM : 90F au comp- | 


+ Monit.mono SM124 tant +24 mensualités de 231,40F | 
1e échéance 90 jours après achat 


F TTC Coût total ducréditavec assuran- h 
ce : 1273,60f dont120f de percep- | 












tion forfaitaire - TEG : 17,92 % 






ATARI520STE À crédit CETELEM ; 90° au comp | 
+ Monit, Couleur SC 1425 le pe SG k 


Coût total du créditavec assuran- | 
F TIC ce :2139,60 dont 120F de percep- # 
tionforfaitaire-TEG:17,92% | 


ATARI 520 STE Æ 
+ Moniteur mono SM 124 RÉ et de 21780 


+ |mp. Mannes. Tally MT81 1" échéance 90 jours après achat | 
Coûttotal du créditavec assuran- 


FTTC 5222259 cont120 de perception 
forfaitaire - TEG : 17,92 % 


ATARI 520 STE s ; 
+ Monit, couleur SC 1425 AL rs bert 


+Imp. Mannes. Tally MT 81 1° échéance 90 jours après achat 


Coût total du crédit avec assuran- 
6890" TTC <:3077 dont 120 de perception 





















NT YA LIEN ELLE 


Microprocesseur : 68000 (16/32 bits) 
Mémoire vive : 512 Ko extensible à 4 Mo 

Mémoire de masse : 1 lecteur 3 pouces 1/2 720 Ko 
Son et Musique : Midi et son stéréo 8 bits 
Résolution maxi : 640 x 400 pixels 

Palette couleur : 16 parmi 4096 couleurs 

Système : GEM (graphiques et souris) 


































forfaitaire - TEG 17,92 





NATEUR PROFESSIONNEL ATARI 1040 STE 


L’ATARI 1040 STE intègre les toutes der- 
nières innovations de la technologie de 
pointe, aussi bien au niveau des compo- 
sants que des méthodes de production. 
Ainsi l'ATARI 1040 STE profite des plus 
récentes découvertes de la micro-élec- 
tronique : architecture résolument inno- 
vatrice basée sur le microprocesseur 16/ 
32 bits MC 68000 et des coprocesseurs 
spécialisés à très haute intégration. 
Résultat : des performances en hausse 
et des coûts de production en baisse ; ce 
qui permet de vous offrir un micro-ordi- 
nateur professionnel à un prix ultra- 
compétitif. Le choix d'un ordinateur, 
pour son usage personnel dans le cadre 
professionnel, ou pour la gestion de l'en- 


MICRO ORDI 








































ATARIIOMOSTE APE de 220 


{r échéance 90 jours après achat 


F TIC Coûttotal du créditavec assuran- 
ce : 1273,40F dont 120F de percep- 


tion forfaitaire - TEG : 17,92 % 














ATARI 1040 STE A crédit CETELEM : 90F au comp- 


+ Monit. mono SM124 tant + 36 mensualités de 206,10 
41° échéance 90 jours après achat 


F TIC Coûttotal du créditavec assuran- 
ce :2139,60 dont 120F de percep- 


tion forfaitaire -TEG : 17,92 % 






















ATARI 1040 STE A crédit CETELEM : 90 au comp- 
+ Monit. Couleur SC 1224 (ani 36 mensualtés de Lans 







treprise, est nie plus facile avec Ep ® pes Lu ou t 
l'ATARI 10405 n- 
Avec toute sa puissance, offerte à un 6490 L TC CAPE F1 





prix très attractif, l'ATARI 1040 STE se 
place en tête du rapport performances/ 
coût. Voilà pourquoi il a été élu ordina- 
teur de l'année aux U.S.A., qu'il est best- 
seller en Allemagne et qu'il fait déjà la 
une de la presse professionnelle en 
France. Plus de 2000 développeurs dans 
le monde - plus de 150 en France - créent 
des logiciels pour lATARIST. Le langage 
de développement d'applications Mem- 
soft est en standard sur l'ATARI ST. De 
ce fait, plusieurs dizaines de solutions 
de gestion et d'applications verticales 
pour PME/PMI sont rendues opération- 
nelles sur ATARI. 











ATARI 1040 STE er 
+ Moniteur mono SM 424 AOL og 


+Imp. Mannes. Tally MT81 ir échéance 90 jours après achat 


Coût total du crédit avec assuran- 
6490 TIC ce :2514,80 dont 120f de percep- 


tion forfaitaire - TEG : 17,92 % 


CARACTERISTIQUES TECHNIQUES 


Microprocesseur : 68000 (16/32 bits) 
Mémoire vive : 1 Mo extensible à 4 Mo 

Mémoire de masse : 1 lecteur 3 pouces 1/2 720 Ko 
Son et Musique : Midi et son stéréo 8 bits 
Résolution maxi : 640 x 400 pixels 

Palette couleur : 16 parmi 4096 couleurs 

Système : GEM (graphiques et souris) 






ATARI 1 STE A crédit CETELEM : 90f au comp- 

+ Monit. couleur SC 1224 sant + 45 mensualités de 230,10 
+1mp. Mannes. Tally MT 81 1" échéance 90 jours après achat 
Coût total du crédit avec assuran- 


749OFTTC sn 






LULU NU 

















CARACTERISTIQUES TECHNIQUES 


Microprocesseur 16/32 bits, MC 68000 à 8 MHz. Co- 
processeur Blitter Atari. Horloge inteme sauvegar- 
dée par piles. Système d'exploitation GEM de Digital 
Research. Graphisme haute définition 640 x 400. Mo- 


niteur monochrome haute résolution. Clavier déta- 
Ché ergonomique AZERTY accentué, Bloc numéri- 
que 10 touches séparé. Souris. Lecteur de disquettes 
intégré, 3 pouces 1/2, 720 Ko. Nombreuses interfaces 
en Standard : RS 232, Centronics, DMA 10 mégabits/ 
seconde pour disque dur, émulateur VT 52. 


LES CARACTERISTIQUES : La gamme MEGA ST représente le 
Summum du concept ST, avec beaucoup de RAMS, un graphisme 
uftra-perfommant et un DOS arrivé à maturité. ATARI fonde de grands 
espoirs sur cette gamme pour l'édition assistée par ordinateur. 


ASPECT TECHNIQUE : Le MEGA ST est tout petit, bien que le 
clavier soit plus grand que celui d'un 1040. Nous sommes en effet si 
habitué à la dimension d'un PC. La hauteur du CPU n'est que de 
2 pouces 1/2. Le clavier, avec ses touches munies de LED, de 
couleur gris clair, ainsi que le CPU confèrent à cette configuration un 
esprit de famille résolument ATARI. |! faut dire qu'avec le moniteur 
ATARI plein écran monté sur le CPU, l'ensemble a un air très profes- 
Sionnel. Comme la gamme ST, la gamme MEGA ST est chargée de 
Prises en tous genres. Qu'on en juge : Port série RS232 25 connec- 
teurs, port imprimante parallèle Centronics, entrée midi, sortie midi, 
sortie vidéo, port floppy disk extérieur, port DMA (Direct Memory 
Access, accès direct mémoire}. Vous trouverez aussi au dos de 
l'appareil un bouton de reset, l'entrée secteur, le ventilateuret un vide 
avec un panneau l'obstruant sur lequel il est inscrit extension”. Sur 
le côté droit, il y a une ouverture qui contient le port cartouche 
(jusqu'à 128 Ko de ROM) et la prise clavier. Les autres caractéristi- 
ques extemes intéressantes sont les deux ports joystick/souris à 
À l'amière du clavier et la fente du floppy disk sur la façade avant. 


| 
| 


PARIS 10° 


Tél, 42.06.50.50 


LYON 1er 
Tél. 72.00.96.96 










UN OUTIL PROFESSIONNEL 


Outil professionnel par excellence, l'ATARIMEGA ST 1 est particuliè- 
rement bien adapté, avec sa fantastique puissance, à tous les tra- 
Vaux demandant un graphisme soigné, en couleur et en monochro- 
me: bureautique, création graphique, animation d'images, CAO/ 
DAO, etc... Associé au disque dur ATARI SH 205 — MEGA FILE, le 
MEGA ST 1 devient la machine de référence dans le domaine des s0- 
lutions de gestion ; doté de l'imprimante laser ATARI SLM 804, le 
MEGA ST 1 constitue l'ensemble PAO Je plus attractif du marché. 


PERFORMANCES GRAPHIQUES 
DE TRÈS HAUT NIVEAU 





L'ATARI MEGA ST 1 est doté de composants très élaborés qui lui 
permettent de parvenir à des performances graphiques de très haut 
niveau. 





BUS COMPLET 68000 


OUVERTURE TOTALE 

Un bus complet 68000 équipe l'ATARI MEGA ST 1 et l'ouvre totale- 
ment vers le monde extérieur. En conséquence, une multitude d'ap- 
plications devient envisageable, notamment dans les domaines 
Scientifique et technique : systèmes d'acquisition de données, Sys- 
tèmes d'entrée-sortie numériques, systèmes d'entrée-sortie indus- 
triels, périphériques (écran très haute résolution, liaison IEEE...) car 
tes mémoires RAM et ROM additionnelles, cartes munies d'autres 
microprocesseurs et bien évidemment les bus standards (type VME 
par exemple). 


10 INTERFACES EN STANDARD 


Les nombreuses interfaces qui équipent en standard le MEGA ST 1 
lui procurent une ouverture vers un environnement diversifié en per- 
mettant de connecterla plupart des périphériques : disques durs, im- 
primantes, modems, synthétiseurs, etc. 









MEGA STA4+MONIT.SM124 A crédit CETELEM: 615 au 
+ IMP. LASER SLM 804 comptant + 48 mensualités de 
+PUBLISHINGPARTNER 983,90 - 1 échéance 90 jours 
+DISKDURMEGAFILE30 après achat - Coût total du crédit 


3 2 6] BF TIC avec assurance : 15467,20f dont 








240 de perception forfaitaire - 
TEG : 17,35 % 





Pour la première fois, on dispose, avecle 
STACY, dans une unité centrale une 

de capacité mémoire en standard 
ivsqu'à 4 Mo de RAM) pleinement utili- 
sable dans un environnement graphique 
avec écran haute résolution. 


CARACTERISTIQUES TECHNIQUES 
MICROPROCESSEUR : Motorola 68HC000 (version 
CMOS du 68000) cadencé à 8 MHz. 

SYSTEME D'EXPLOITATION : TOS et environnement 
graphique GEM en ROM, Format de disquette 3.5” com- 
patible MS-DOS autorisant des transferts de fièhiers 
sur compatibles PC. 

MEMOIRE : ROM 256 Ko. RAM 4 Mo (LST 4144). 
MEMOIRE DE MASSE : lecteur de disquette interne 3.5” 
de 720 Ko. 
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ATARI MEGA PAGE 
(Mega ST 1 + Monit. SM 124 
+ Timeworks + Rédacteur) 


6490OFTTC 


Atari MEGAPAGE Disk Dur 
(Mega ST1 + Monit, SM 124 


A crédit CETELEM : 90f au comp- 
tant + 96 mensualités de 244,30F 
1 échéance 90 jours après achat 
Coût total du crédit avec assuran- 
ce :2514,80F dont 120F de percep- 
tion forfaitaire - TEG : 17,92 % 












A crédit CETELEM : 50 au comp- 





+Timeworks + Rédacteur+ tant + 48 mensualités de 304,707 
Disk Dur 30 Mo) 1r échéance 90 jours après achat 
Coût total du créditavec assuran- 






ce : 4945.60 dont 120F de percep- 
tion forfaitaire - TEG : 17,92 % 


9850FT. 











A crédit CETELEM: 579 au 
comptant + 48 mensualités de 
404,20F - 1® échéance 90 jours 
après achat + Coût total du crédit 


IMP. LASER SLM 804 
avec assurance : 6641,60F dont 
240F de perception forfaitaire - 


TEG:17,92% 
IMPRIMANTE LASER SLM 804 


Vitesse d'impression : 8 pages par minutes. Résolution : 300 x 300 points 
au pouce, Format d'impression : A4, à la française ou à l'italienne. Char- 
gement du papier : automatique ou manuel. Capacité du magasin de pa- 
pier : 150 feuilles. Interface : port DMA du MEGA ST 1. Impression mode 
texte : émulation Diablo 630. Impression mode graphique : GDOS de Digi- 
tal Research, logiciel de composition de page en cours de dévelop- 
pement. 







À crédit CETELEM : 265 au comp- 
tant +48 mensualités de 450,80F- 1e 
échéance 90 jours après achat - 
Coût total du crédit avec assuran- 
ce: 1378,40° dont 240% de percep- 
tion forfaitaire - TEG : 17,92.% 


ATARI MEGA ST 4 
+ Monit. mono Atari SM 124 


14765FTC 


ATARIMEGAST4 . 
+Monit. coul. Atari SC 1425 


1576517 


ATARI MEGA ST 4 
+ Monit mono Atari SM 124 
+ Imp, laser Atari SLM 804 


26388FT 









À crédit CETELEM : 265 au comp- 
tant +48 mensualités de 478,90 - fre 
échéance 90 jours après achat - 
Coût total du crédit avec assuran: 
ce: 7727,20f dont 240F de percep- 
fion forfaitaire - TEG : 17,60 % 











A crédit CETELEM : 388° au comp- 
tant +48 mensualités de 799,40f - 17 
échéance 90 jours après achat - 
Coût total du crédit avec assuran- 
ce: 12611,20F dont 240F de percep- 
tion forfaitaire - TEG : 17,35 % 















RESOLUTIONS GRAPHIQUES : haute résolution mono- 
Chrome (écran LCD ou externe) ; moyenne résolution 
couleur (écran externe ou TV) ; basse résolution couleur 
(écran externe ou TV).. 

INTERFACES : prises MIDI IN et MIDI OUT/THRU ; prise 
moniteur (RVB analogique, haute résolution mono- 
chrome ou audio) ; port parallèle (imprimante) : port sé- 
rie RS 232C ; port unité de disquette externe ; port 
DMA ; port cartouche (128 Ko) ; port souris : port ma- 
nette. 

ALIMENTATION : adaptateur secteur externe 18 V 2 A. 
Piles 1.5 V de type LR 14 ou accus rechargeables. 
DIMENSIONS: largeur 38,5cm, profondeur 33 cm, 
épaisseur 8,7 cm. POIDS : 5,5 kg. 

























PARIS 10° 
ES | LE GRAND 


ATURES | SPECIALISTE M k C RO 


& 72.00.96.96 
LES IMPRIMANTES PROMOTION SUR NOS RUBANS 
ü partir de Nous tenons à votre disposition un stock 


Toutes les imprimantes sou garanties 2 énorme de rubans à des prix très compéti 
Cadeau PACK PRO IMPRIMANTES GENERAL BOFTTC pièce = Consuitez-nous! 


tête d'impression 























MT81 (155 cps - 9 aiguilles) 
MT 222 (264 cps - 24 aiguilles) 
MT 905 laser 
MT 81 MINITEL (idéale pour vos copies d'écran) . 


120 D4{120 cps - 9 aiguilles - 80 CO|) {10) 1290F 
HQP 40 (200 cps - 24 aiguilles - 80 col) . (14) PROMOTION : 2990 F 
DMP3160 (160 c0s -9aigulles- 80 co)... (1) 1700F MSP 15E (160 cps -9 aiguiles- 192 co) … PROMOTION :2690 F 
DMP 3250 (160 cps - 80 col - PAR/SER) + First Publisher … 1990 F SWIFT 24 (160 cps - 24 aiguilles - 80 col) … (12) 3490 F 
L@ 3500 (160 cps - 24 aiguilles - 80 col) + First Publisher … 2690F Kit Couleur SWIFT 24 
La 5000 (288 cs - 24 aiguilles - 132 co) +First Publisher … 4990F MSP 40/(240 cps - 9 aiguilles -80 col) 
HQP 45 (200 cps - 24 aiguilles - 132 col) 
MSP 50 (300 cps - 9 aïguïlles - 80 col) … 
LX 800 (180 cps - 9 aiguilles - 80 co) (2) 2150F MSP 55 (300 cps - 9 aiguilles - 132 col) 
LX 850 (200 cps - 9 aiguilles - 80 col) . 

LA 500 {180 cps - 24 aiguilles - 80 col) 
La 550 (226 cps - 24 aiguilles - 80 col) 
FX 850 (264 cps - 9 aiguilles - 80 col 
1X 800 (375 cps - 9 aiguilles - 80 co) 
FX 1050 (264 cps - 9 aiguilles - 192 col) 
LA 850 (330 cps - 24 aiguilles - 80 co) … 
LA 1050 {230 cps - 24 aiguilles - 132 col) 
LQ 860 (300 cps - 24 aiguilles - 80 col - 256 couleurs) … 
LA 1060 (300 cps - 24 aiguilles - 132 col - 256 couleurs) 
$0 850 (742 cps - 24 aiguilles - 80 co - jet d'encre) .…… 
LQ 2550 (500 cps - 24 aiguilles - 192 col) avec kit couleur … 11600 F 
80 2550 (743 cps - 24 aiguilles - 132 col - jet d'encre) 
DFX 5000 (400 LPM - 9 aiguilles - 132 col . 
GQ 5000 Laser 
TLQ 4800 . 
ax 800 (Jet d'encre coul. + V 







FIRST PUBLISHER est un logiciel de Publication Assistée par 
Ordinateur. Il fonctionne sur tout PC, PC-XT, PC-AT, PS2 et 
compatibles, Ce logiciel réalise la mise en page automatique 
sur À à 4 colonnes, vous disposez d'une bibliothèque de 150 
dessins et d'outils de dessins (crayon, gomme...). FIRST PU- 
BUISHER possède de nombreuses fonctions de traitement de 
texte ainsi que 60 polices de caractères différentes avec leurs 
attributs. Valeur : 1482,50FTT6, 

































































. 6490F 
















LC 10 (144 cps - 9 aiguilles - 80 col ……… : 

LC 10 couleur (144 cps - 9 aiguilles - 80 col) 113) 2490F 
.5990F LC2410(170 cps - 24 aiguilles -BO co). {14} 2990F 
.6590F LC 15 (aiguilles) . .… 3990 F 


















FR 10 (300 cps - 9 aiguilles - 80 col) … 
FR 15 250 cps - 9 aiguilles - 136 col) . 
XB 24-10 (240 cps - 24 aiguilles - 80 co)) … 
XB 24-15 (200 cps - 24 aiguilles - 136 col) . 
Laser Printer LPS 19990F 


ELLES 


KXP 1180 (182 cps - 9 aiguilles - 80 col) … 
KXP 1124 (192 cps - 24 aiguilles - 80 col . 





































P2 PLUS(96 cps - 24 aiguilles - 80 col) - 
P6 + (264 cps - 24 aiguilles - 80 col) …… E 2410 (216 cps - 24 aiguilles - 80 col) 


P7 + (264 cps - 24 aiguilles - 132 CO) 2 E 2415 (216 cps - 24 aiguilles - 132 col) s 
* sauf tête d'impression Nos prix sont annoncés toutes taxes comprises 




























pour l'achat groupé de certaines imprimantes 

avec un ordinateur d’une valeur supérieure à 5000 F (sauf promotions) 
EXEMPLE POUR UN ACHAT GROUPÉ : STAR LC 10 COULEUR mm 1590 F TTC 
MANNESMANN TALLY MT 81 A110FTTC  STARLC 2410 mme 2090 FTTC 


STAR LC 10 . 4320FTTC  CITIZENSWIFT 24 mm 2450 FTTC 
EPSON LX 800 … mr mmmmmmen 1480 F TTC  NECP2+ HS SO TRGETIE 
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sons la différence 


ACTION D'ENFER 249 F 
ALL TIME FAVORITE 225F 
AMERICAN DREAMS . 259 F 
ARCADE HITS ="... 249 F 
COMPILATION 1 … 249 F 
EUROPEAN DREAMS . 259F 
GEND'ORE 249 F 
GIANTS 290 F 
JUSTICIERS 239 F 


PRECIOUS METAL 
PREMIERE COLLECTION 3 


PREMIERE COLLECTION 249 F 
SILVER COLLECTION … 279F 
SIMULATION HITS . 249 F 
STAR VOL. 1 199F 


STORY SO FAR VOL. 1 
STORY SO FAR VOL. 2 
STORY SO FAR VOL. 3 
TRIAD 2 


ANHEADS =. "1. N.C. 
ACTION CONCEPT =... N.C. 
BAD BLOOD = N.C. 
BATTLE OF BRITAIN . 245 F 
BATTLE MASTER. 245 F 
BEVERLY HILLS … 195 F 
BLADE WARRIOR. 245 F 
BLOCK OUT 245 F 
BLUE ANGEL 245F 
CABAL 199F 
COLDITZ mm" mmmnnnts N.C. 
COMBO RACER … 195F 
DRAGON SLAYER:-...—. N.C. 
DRAGON STRIKE... . NC, 
DRAGON FLIGHT . . 245F 
DRAVING FORCE . 265 F 
DYNASTY WAR . 245F 
ERIC men eme miens N.C. 
ESCAPE FROM PLANET 195 F 
FIRE FORGET 2... 260 F 
FIRE AND BRINGSTONE . 245F 
ie 285 F 

. NC. 

245F 

195F 

HAMERFIRST 249 F 
IMPERIUM 245F 
INTERNATIONAL 3D TENN 249 F 
KICK OFF 2... . NC. 
KILLING GAME SHOW 245 F 
LAST NINJA 2 … 245F 
LOST PATROL 245F 
MATRIX MARAUDER . 245F 
MIGHT AND MAGIC mm NiG: 
MIDNIGHT RESISTANCE … NC. 
NUCLEAR WAR … NC, 
OPERATION STEALTH . 295F 
POPUREREE . 199F 
POWER BOAT 245 F 
PROPHECY …… NC. 
1(e) eus 2 … NC. 
RAILROAD TYCOON 295 F 
RAIDERS = nt N.C. 
ROBOCOP 2... … NC. 


PARIS 10° 
Tél. 42.06.50.50 


LYON 1°' 
Tél. 72.00.96.96 


En faisant l’acquisition d’un MEGASO 


« GARANTIE DU MEILLEUR PRIX : si vous trouvez moins cher ailleurs avant votre achat, 
dites-le nous etnous vous proposerons un prix encore meilleur, Si, dans un délai de quinze 
jours après votre achat, vous trouvez votre soft moins cher ailleurs, nous vous rembour- 


* GARANTIE DE BON FONCTIONNEMENT : en cas de défectuosité du logiciel pendant les 
15 premiers jours d'utilisation, nous vous l’échangeons. 


- SECRET AGENT …….……… 













mercialisées des logiciels. 

















































SHADOW OF THE BEAST 
SHADOW WARRIOR … 
SKID MARKS .… 









































BLACK TIGER... 199F 
BUBBLE + = . 249F 
CASTLE MASTER .… 245 F 
CHASE HQ 199 F 
CRACK DOWN .… 195 F 
CYBERBALL 195 F 
DANDARE 3 …… … 195F 
DARK CENTURY... 235F 
DOUBLE DRAGON 2 199 F 
DYNAMITE DUX 199F 
EAGLES RIDER … … 245F 
ee 195F 

299 F 

239 F 

245F 

HEAVY METAL 195F 
HOT ROD 245 F 
IMMPOSAMOLE 195F 
INCORRUPTIBLES .—. 199 F 
INDY ARCADE …… 199 F 
INFESTATION … … NC. 
INTRUDER 235 F 
IVANOHE 245 F 
JUMPING JACKSON .. 199F 
KID GLOVES men 245 F 
KEAN ee 195F 
KNIGHT FORCE 269 F 
LODE RUNNER . 195F 
MANIAC MANSION . 249F 
NINJA SPIRIT 245 F 
NINJA WARRIOR .. 199 F 
PAT . 249F 
PINBALL MAGIC … 199 F 
PIPEMANIA ….…… 265 F 
POWER DRIFT 239 F 
PROJECTYLE 195F 
RAINBOW ISLAND … . 199F 
RESOLUTION 101 … . 235F 


RICK DANGEROUS 
SHERMAN M4... 
SONIC BOOM 
SPACE HARRIER 2 …… 
STRIDER 


SA. 
TINTIN SUR LA LUNE 220 F 
199 F 


TOYOMES 






LE GRAND 
SPECIALISTE 


FT chez GENERAL, vous avez droit : 


e GARANTIE DE FRAICHEUR : nous ne vous proposons que les dernières versions com- 


e GARANTIE DE CHOIX : nous nous engageons à vous offrir le plus grand choix de logiciels 
possible. Si vous ne trouvez pas dans nos annonces le soft désiré, consultez-nous. 

« DROIT ALA DEMO : si vous le souhaitez et que les conditions s'y prétent, vous pouvez de- 

mander une démonstration du mégasoft que vous souhaitez acquérir. 









AK ATAR 









TWINWOLRD 
WILD STREET 
X OUT 



















> 
er] 


ë 


COLORADO ………… 
DRAGON'S BREATH 
DRAGON'S LAIR 
DRAKKHEN 
DUNGEON MASTER. 
EXPLORA 2. 
FETICHE MAYA .…… 
FULL METAL PLANETE 
INDY AVENTURE 
MANOIR MORTEVILLE 
MAUPITY ISLAND .……. 
MEURTRES A VENISE . 
MIDWINTER …. 
ROCK STAR … 
TOWER OF BABEL 
VOYAGEURS DUTE 


on 
8 à 
















BLUE ANGEL 
BOMBER 
CONTINENTAL CIRCUS . 





FALCON En. 


TURBO OUT RU 


SOCIETE 


BATILE CRESS mes 
DAMES SIMULATOR ” 













BEACH VOLLEY . 
GAZZA SOCCER 
GREAT COURT 
SOCCER … 


KICK OFF EXTRATIME.. 
PLAYER MANAGER … 
TENNIS CUP 
ULTIMATE GOLF … 


AUSTERLITZ.. 
BORODINO … 
CONFLIT EUR 
NORTH AND SOUTH . 
POPULOUS 
WATERLOO .… = 
SM 


LATE WESTPHASER . 299F 


PARIS 10° 


Tél. 42.06.50.50 


LYON 1° 


Tél. 72.00.96.96 


LES EDITEURS DE SON 
FM MELODY MAKER … 
MUSIC CONSTRUCTION SET 
ST REPLAY 4 
ST REPLAY PRO 


EMULATEURS | 


PC SPEED … 2490 F 


3800 F 
SUPER CHARGEUR 2890 F 


GESTION FAMILIALE 


GESTCOMPTE … 


GESTION BUDGET PERSONNE! 
(Gest, bancaire + Graphiques + Buget familial permetta jotre com, 
tabilité personnelle. Gère 10 comptes, 20 postés, 10 CB + nombreuses prof 


MULTIDESK ST 
REVOLVER ST 





SPACK ST (Générateur applications graphiques et sonores) 


UTILITAIRES 


SRITE ANIMATOR . 
DISCOSCOPIE 


NOM DE L'HERMINI 








BECKER CALC (tableur + graoheur 
CALCOMAT Il L'OREILLE EN POINTE … 
 DATAMA | L'AXE DES 3-8 ANS (EVEIL) 
ASSOCIE (MULTILANGUES) 
BAMBINO FAIT UN PUZZLE . 
BAMBINOURS FAIT UN PUZZLE (MULTIL.) 
BAMBINOURS FORMES & COULEU 
BARRE L'INTRUS (MULTILANGUES) 
BASE ORTHOGRAPHE/LA DICTEE C| 
COLLECTION “JE"/5 LOGICIELS . 
700€ | LES 1001 VOYAGES 
nn : LE PETIT LECTEUR . 
J\02 LES PETITS COLORIAGES MALINS 1 & 2 . 
- MELODIK (MEM. MUSICALE 4-10 ANS) 
MEMORISE (MULTILANGUES) 
MIRELA (INIT. SOLFEGE 3-8 
RETROUVES L'HISTOIRE . 
RODY ET MASTICO . 
TRICAROND (4-10 ANS) 
L'AXE DES 8-12 ANS (EVEIL) 
BASE ORTHOGRAPHE/LA DICTEE CM1/CM2 
TROUBADOURS … 
L'AXE CULTUREL ET SCIENTIFIQUE 
AUX ORIGINES DE LA VIE … 
OMF À BASIC VIE ET MORT DES DINOSAURES .. 
MCE C 290 F L'AXE LINGUISTIQU 
C WILLIAMS C S00F | DE. CONCORDANCE DES TPS VOL. 2/5e 
D.E, CONCORDANCE DES TPS VOL. 2/4 . 
D.E. CONCORDANCE DES TPS VOL. 2/3+ 
D.E. CONCORDANCE DES TPS VOL. 2/2née 
D.E. CONCORDANCE DES TPS VOL. 2/BTS 
L'AXE LITTERAIRE 











; AU TEMPS JADIS . | SEL 
5 IL ETAIT UNE FOIS DESTINATION MATH CE: 
- LE TEMPS D'UNE HISTOIRE 


NATHAN/COKTEL 


FRANÇAIS PRIMAIRE 
APPRENDS-MOI A LIRE 1 . 
APPRENDS-MOI A LIRE 2 . 
LANGUE FRANÇAISE CE1 
LANGUE FRANÇAISE CE2 in c'e 
LANGUE FRANÇAISE CM1 MATHS EDUCATIF DA ARE 
LANGUE FRANÇAISE CM2 FA M A ET 
LES TROIS PETITS COCHONS - 4/6 ans 
LES CASTORS JUNIORS - 9/11 ans 
PICSOU CHASSEUR DE TRESOR 
8/10 ans-11/12ans … 


FRANÇAIS VOLLEGE 
LANGUE FRANÇAISE 6° 
300F | LANGUE FRANÇAISE 5° 
690F | LANGUE FRANÇAISE 4e 
530F | LANGUE FRANÇAISE 3° 
LES EDITEURS DE PARTITIONS ECRIRE SANS FAUTES VOL. 1 - 6+/3e 
RE F | ECRIRE SANS FAUTE VOL. 2 6+/3e 
FRANÇAIS XVI+ AU XX: SIECLES 





:S SEQUENCEURS 








FOLLE LECTURE DE DON QUICHOTTE - 6 






































N 


10, bd de Strasbourg 


SERVICE VPC ‘750i0paris 
6 MODES DE REGLEMENT AU CHOIX : 


1} EN CONTRE-REMBOURSEMENT : vous ne réglez que lors de la livraison de votre matériel. 
Prévoir 24 F de frais de contre-remboursement lors d'une expédition P&T et 40 F par un transpor- 
teur (envoi de plus de 5 kg ou d'une valeur de plus de 2000 F) en sus du forfait transport. Remplis- 
sez le bon de commande ci-dessous. Si vous ne souhaitez pas mutiler votre revue, photocopiez- 
le ou écrivez nous sur papier libre ou encore, téléphonez nous (demander M. BERNARD au (1) 
42.06.50.50, postes 436 ou 441). 

2) PAR CARTE BLEUE : vous pouvez nous téléphoner et nous commander le matériel désiré, en 
nous donnant le numéro de votre carte bleue. Vous pouvez également utiliser le bon de com- 
mande ci-dessous. 

3} PAR CHEQUE OÙ CCP : vous remplissez le bon de commande ci-dessous en joignant le règle- 
ment du total de votre commande plus le forfait transport correspondant à l'ordre de GENERAL 
VIDEO (voir ci-contre). 

4) PAR MANDAT : vous remplissez le bon de commande ci-dessous en précisant que vous désirez 
régler par mandat postal ou par mandat-lettre. N'omettez pas de compter le forfait transport (Voir 
ci-dessous). À réception de votre mandat, nous expédions votre commande. 

5) PARMINITEL : TAPEZ 3615 code GVF, puis choisissez dans notre catalogue Minitel le ou les 
articles que vous souhaitez commander. Indiquez-nous votre adresse complête, votre numéro de 








Si vous ne pouvez vous déplacer 
ce service est fait pour vous 


téléphone et votre numéro de Carte Bleue. Si vous souhaitez des renseignements ou une docu- 
mentation supplémentaire, vous pouvez nous poser VOS questions et nous vous répondrons dans 
les délais les plus courts. Vous pouvez aussi vous amuser sur notre Serveur grâce aux CONCOUrS 
permanents et gagner de nombreux lots. 


6) A CREDIT : si vous souhaitez des renseignements détaillés pour l'achat à crédit, vous pouvez 
joindre Mlle TANIA, Responsable Crédit, au (1) 42.06.50.50, poste 458. Si tout vous parait clair, 
vous envoyez le bon de commande ci-dessous en précisant si vous souhaitez verser une partie 
comptant. Par retour du courrier, nous vous envoyons un dossier de crédit que vous devez nous 
retourner dûment rempli et signé. Après acceptation de ce dossier, nous vous expédions le maté- 
riel. Pièces demandées : pièce d'identité, dernier bulletin de salaire, RIB, quittance EDF ou de 
loyer informatisée. 


e FORFAIT TRANSPORT: 20F pour 2 softs, 35 F pour 3 softs et plus. 

50 F pour les accessoires et les disquettes vierges. 

60 F pour les imprimantes. 

120 F pour les machines. 

(Dom-Tom et étranger, nous consulter). 
Ce forfait n'est pas cumulable, c'est-à-dire que si vous commandez un micro-ordinateur plus des lo- 
giciels, vous ne payez que le forfait transport machine, donc 120 F. Tous nos matériels sont expédiés 
en recommandé. 


ATTENTION : pour toute commande supérieure à 10.000 F, joindre un acompte de 20 % à la commande 
















































ur ro APE CAE et 
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DESIGNATION 


ral 1 | -10IeS PES ES | 


Pour toute commande de logiciels, précisez le type dela 
machine et le format de(s) disquette(s) désiré(es) 


NOM 

BON DE COMMANDE EXPRES | sl 1 1 1 1 Ut LIT] 

Je, soussigné, déclare commander à GENERAL les marchandises et fournitu- 

res ci-après désignées pour expédition à mon adresse indiquée ci-contre, no LL | |] sole 21 \ ten) | 

Je choisis de régler par :L_| Contre-remboursement | 

[] Carte Bleue’ EF Chèque/CCP [] Mandat [] Crédit A ce: 10 | | [ee ; 5 ES =] Code Postal LS NP M Les | 

. ; | 

Ne de Carte Bleue Date expir. CB += Ba. ei SE | 
à 




































































BON DE COMMANDE A RETOURNER A 
GENERAL, 10 BD DE STRASBOURG, 75010 PARIS 


Observations du client : 


Avez-vous déjà commandé par correspondance chez 
GENERAL depuis le 1/02/1989 


Dan tenant EE 


Pour les mineurs, la signature des parents est obligatoire. 





QUIE NONTI 






















FORFAIT 
DE PORT 


iL FRAIS 
CONTRE-REMBOURS. 





Signature 





PLUS DE 6500 ENTREPRISES ET COLLECTIVITES NOUS ONT DEJA 
FAIT CONFIANCE : VOUS AUSSI, OUVREZ UN COMPTE CHEZ GENERAL 


Vous aurez droit à des prix professionnels, livraison sous 24 heures, réglement sur relevé de factures. 
La vente en gros s'adresse aux entreprises, collectivités, administrations, etc. 

Les membres de ces collectivités peuvent se rendre individuellement chez GENERAL, munis d'un jus- 
tificatif. Il se verront remettre une CARTE COLLECT IVITÉ qui leur donnera accès aux prix de gros. 
Pour toute information, contactez M. N'GOM, M. ALVAREZ ou Mme LE POULL., tél. 42.06.50.50, télex 
214.034, télécopie 42.38.35.60. 

Entreprises, nous sommes en mesure de vous proposer les services suivants pour l'acquisition de 
votre matériel chez GENERAL : 

1°) ouverture d’un compte, après la première commande ; 


2) un financement personnalisé : crédit-bail pour tout matériel d’une valeur supérieure à 10,000 F à 
condition d’avoir au moins deux exercices d'activité. Ce mode de financement vous permet en ou- 
tre de récupérer la TVA sur les loyers mensuels. 

3) une Pro d'initiation gratuite de votre personnel avec chaque machine vendue (durée 1/2 
jou ; 

4°) une formation approfondie, soit dans nos locaux, soit auprès d'instituts spécialisés qui ont notre 
confiance tel le prestigieux ALTITUDE 21 ; 

5°) une assistance téléphonique, sans limitation de temps ; 

6) une maintenance sur site au travers de puissants groupes spécialisés tels AMTI ou MIS ; 

7e) une tarification étudiée en fonction des quantités souhaitées et de votre statut d'entreprise. 





NOTRE TARIF COLLECTIVITE EST AUSSI POUR VOUS 


En dehors des prix promotionnels et des actions temporaires GENERAL, vous avez droit à un tarif spécial sur l'ensemble des produits de notre magasin. L'inscription pour obtenir la CARTE ETUDIANT GENERAL est immédiate et gratuit: 


CONDITIONS DE VENTE : ce catalogue n'est valable que pour le mois de sa parutiof et remplace les précédentes éditions. Produits proposés dans la limite des stocks disponibles. Nos promotions ne sont pas cumulable: 








AMIGA 


Je me rappelle qu'il y a quelques mois, je passais des 
heures devant une machine d'arcade sur laquelle on 
trouvait un jeu de combat fabuleux nommé Shadow War- 
rior. Eh bien, ça y est, il est arrivé sur Amiga, du moins 
pour le moment (je l'espère), et je dois avouer que la 
version micro est exactement la même que l’arcade. Les 
graphismes sont identiques et complétés par une anima- 
tion très fluide (mais plus lente que l’arcade). Vous aurez 
aussi la joie de pouvoir jouer à deux (en même temps) et 
grâce à vos talents conjugués, vous aurez plus de facili- 
té à vaincre les chefs de gang. De plus, vous disposez 
de cinq crédits (au départ) et d’une option “continue” 
pour vous venir en aide. 

Le scénario est des plus simples, puisque votre but est 
de traverser une ville en “blastant” tout ce qui passe à 
votre portée (même les poubelles) jusqu'au 6ème niveau 
où vous attend un démon qui n’est autre que le Big 
Boss. À mon avis, il aurait mieux fallu faire intervenir 
l'équipe de Ghostbusters… 













Désormais, la Rubrique Jeux de ST Mag 
présente ses photos avec un cadre de 
couleur afin d'identifier la version 
photographiée : 

- Cadre rouge : Amiga. 

- cadre bleu : ST. 





Le maniement du personnage est aisé et vous aurez la 
surprise de le voir changer ses coups en fonction du 
décor. Parfois, à la place de sauter et de donner un 
coup, il s'agrippe à un lampadaire et saute sur sa proie à 
pieds joints. Il sait aussi faire des sauts périlleux qui sont 
assez pratiques si vous les combinez avec un mur. En 
etfet, en sautant sur le mur, vous vous retrouvez derrière 
vos ennemis et boum | 

En bref, Shadow Warrior est une superbe adaptation fort 
bien réalisée et c'est avec impatience que nous atten- 
dons les autres versions micro. 


Note : 18/20 Jean Delaite 















FLOOD 
ELECTRONIC ARTS AMIGA 


Ça y est, l'équipe de Populous nous sort un nouveau jeu 
complètement différent puisqu'il s’agit d'un jeu d'arcade 
du type de Rainbow Island et de Bubble Bobble. Les 
graphismes (surtout la présentation) et l'animation sont 
superbes. Un tout qui forme un jeu plein de fun et 
d'actions. 

Flood narre l’histoire de Quiffy, un petit monstre dont le 
monde est envahi de poubelles, de déchets en tous 
genres et même de monstres. Mais ce n'est pas tout, car 
une inondation menace aussi ce monde sous-terrain. 
Bravant les éléments, Quiffy doit donc nettoyer et sauver 
son monde de la destruction. Une fois le tableau propre, 
Quiffy doit retrouver un téléporteur qui l’enverra dans 
une autre salle. Il y a 42 salles au total, et dans cer- 
taines, vous trouverez des codes d'accès qui vous per- 
mettront de revenir à ce niveau en cas de “malheurs”, 
mais cherchez bien car ces codes sont bien cachés. 

La vie de Quiffy est régie par deux niveaux : un rouge 
pour l'énergie et un bleu pour la réserve d'air lorsque 
vous êtes sous l’eau. Au niveau des monstres, vous en 
avez toute une galerie. En voici donc quelques-uns : les 
Psycho Teddies sont des nounours en peluche affamés 
et dotés d'une énorme bouche sur le ventre. Il y a aussi 
des mousses qui vous tuent au premier contact et puis il 
y a le fantôme qui suit tous vos mouvements pas à pas 


et qui est indestructible. Le seul moyen de lui échapper 
est de terminer le tableau au plus vite. Vous avez aussi 
des armes à votre disposition, à concurrence d'une par 
niveau. Elles peuvent aller du boomerang au lance- 
flammes en passant par les grenades. 


En conclusion, en raison du mauvais temps prévu cet 
été, vous ne pourrez pas sortir à la plage, alors pourquoi 
ne pas jouer à Flood ? 


Note : 18/20 


Jean Delaite 
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FALCON 
MISSION DISK 


SPECTRUM HOLOBYTE ST 


Enfin le voilà, le nouveau “mission disk” pour mon simu- 
lateur de vol préféré. Tout ce que je peux vous dire du 
scénario, c'est qu'il s’agit d'une grande bataille dans 
laquelle les missions s'enchaînent les unes aux autres et 
que la mission suivante dépend de votre action dans la 
précédente. On peut parler de missions interactives. Les 
nouveautés, il y en a quelques-unes... La première sur- 
prise est pour la page de présentation, en effet cette der- 
nière a changé (je préférais le dessin du faucon dans la 
première version, m'enfin !). Les pilotes des Migs sont 
beaucoup plus coriaces à larguer et s'accrochent à vos 
ailes comme de véritables tiques. L'animation est encore 
plus fluide et plus rapide (à moins que ce ne soit qu'une 
impression). Les graphismes aussi ont été soignés et je 
vous conseille de survoler le convoi de camions ainsi que 
le train à très très basse altitude, c'est époustouflant | 





Décidément, les concepteurs de Falcon ont décidé de le 
rajeunir petit à petit, ce qui n'est pas pour me déplaire et 
si comme moi, vous êtes un inconditionnel de ce simula- 
teur de vol, alors ce Mission Disk Il est pour vous. 


Note : 18/20 Jean Delaite 


RESCPUE 
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KICK OFF 2 


ANCO AMIGA 


Il y a eu Kick Off (une superbe nouveauté mais plutôt 
buggée) puis Kick Off Extra Time et enfin Player Mana- 
ger (qui permettait de créer ses propres équipes). 
Aujourd'hui, vous faites ce que l'on appelle un remix et 
vous agitez le tout très fort. Le cocktail se nomme Kick 
Off 2 (le retour...). Il existe déjà pas mal de simulateurs 
de football, plus où moins bons, qui sortent sur le mar- 
ché, mais aucun ne pourra arriver là où Kick Off 2 nous 
entraîne. 


Kick Off 2 possède la même disposition à l'écran que le 
premier, sans les bugs, et avec de plus beaux gra- 
phismes. Chaque équipe est paramétrable (jusqu'à la 
couleur des maillots). Il existe différents types de terrain 
: normal, mouillé, artificiel et détrempé. Bien sûr, vous 
pouvez aussi faire confiance au hasard. Il faut aussi 
noter que le jeu change en fonction du terrain et du vent 
(eh oui, il y en a aussi). On peut aussi choisir le temps 


de jeu. En cas de match nul, on passe aux prolongations 
et si durant celles-ci, vous n’avez pas résolu votre pro- 
blème, vous aurez à tirer des pénalties. J'oubliais une 
chose très importante : on peut choisir son arbitre !.… 

Kick Off 2 vous propose plusieurs types de match, avec 
l'entraînement, le match amical, le championnat mais 





DPTLONS 
Vi ANT ITS ; 


HET: SUGGY 
RANDOM 


PERIE! Ex 


LIGHT THEDTFUR 


Fo 


FÉRNPENUEZ 





aussi un scénario : la coupe du Monde 90. 

Un des “Plus” de Kick Off 2 réside dans le fait que l'on peut 
y jouer jusqu'à quatre joueurs (avec extension joystick) en 
4 équipes ou bien à 4 dans la même équipe. En effet, vous 
avez la possibilité de ne jouer qu'une place durant tout le 
match, l'ordinateur gérant les autres joueurs. 

Au niveau des déplacements, le goal est capable de 
faire des tonnes de coups différents lors des arrêts mais 
aussi lors des dégagements. Les joueurs peuvent aussi 
brosser les tirs (c'est dur à réaliser, mais superbe pour 
marquer). Mais là où Kick Off 2 est génial, c’est qu'il 
existe un système de sauvegarde de vos meilleures 
actions (et buts) pour vous permettre d'épater la galerie 
plus tard. 


Note : 20/20 Jean Delaite 
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ADN RUGEN SIMULATOR 
EROCD MONEY 





PRTRRENRRSEEENS 


RUN 
POUR 3 JEUX ACHETES 
1 JEU GRATUIT 


(DANS LA LISTE CI-DESSUS) 


UTILITAIRES 


2 
$ 
5 
8 
: 
3 
À 








3 à 


199 
FAILCON. 199 
ITALY 90. 199 
LALei qe); ps RS T 3 
DUNGEON MASTER 199 


ÉTLIHT 


mn 


= 


BCRODINO_—————. 190 

CASTLE MASTER 269 NORTH AND SOUTH.—— 109 
CHAMEERS OF SHACLEL- 215 OCEAN BEACH VOLLEY_. 100 
CHAOS STRKE EACK. .— 108 






















CRACK DOWN... 189 
CAAZY CARS IL — 215 PACK CMIRRON — — 
DAMES SIMULATOR._-_ 289 
DARK CENTURY 289 
DELA AU Em 60 


DOLELE DRAGON & 180 
DRAGON'S BREATH_— 279 
CRAKKEN... 


ÉTÉ 


Ko mn 





F 18 COMBAT FILOT___ 220 STARER....__. 109 SPECTRE 6... 
FEAMCON___—_—___— 200 TENNES DE TABLE ST REPLAY V4 VE... 
FÉLOON MISSION 1. 185 TONER OF EREEL ST REPLAY PACK PRO 
FERRARI FORMULE 1. 226 TRIAL FURSUI M. STOS BASIC. 


: DISQUETTES 
312 DER DD 


2 DUR ET 
| 5.90 F pce par 50 
. 640 FR pce par 10 
JUMPNQ JACK SON 210 


PORT GRATUIT oc DOMPUB RARE RTE À PART me 2er 2 D, AEMAT 
AouRER a: CENTURY SORT BP. 454 03004 MOULINS CHDEX 


Æ 70.462048 


L1 CONTRE REMBOURSEMENT + 24 F 
Li) CHOUE L} CARTE BALE 


HT 
EH ENTDTANIHE 

















CE Ce, SR ES TS 


DATE D'EMPMATON 





SQNATURE : 


















































SYSTEME 3 AMIGA / ST 


Tiens, un numéro 2 ? Et pour une fois, complètement dif- 
férent du premier. Last ninja Il allie à la fois arcade et 
aventure (dans le sens le plus simple du terme), le tout 
emballé dans un décor en 3D du type Krafton & Xunk. 
Personnellement, je préférais la première version dans 
laquelle on se défoulait en frappant tout ce qui bouge 
sans se poser de questions. Du côté des graphismes, 
c'est bien mais loin d'être exceptionnel. Il y a aussi une 
autre chose qui m'a vraiment gêné : le Ninja n'a que 
deux coups possibles. Quand on connaît les autres jeux 
avec des Ninja, c’est vraiment très peu. 


L'ordre des Ninja est mort vers le XIIème siècle, mais des 
parchemins ont été retrouvés et Armakuni (alias vous), le 
grand maître, tente de le reformer. Alors qu'il était entou- 
ré de ses élèves, une aura mystérieuse l’enrobe et le 
téléporte dans un monde étrange. C'est ainsi qu'Armaku- 
ni se retrouve à New-York en plein XXème siècle. Son 
but est de retrouver celui qui l'a fait venir ici et de le 
détruire (quelle prétention). Ce ne sera pas une chose 
facile car l’autre est vraiment bien protégé par une horde 
de sbires assoiffés de sang et de tripes (beurk!) (NDLR: 
petite touche personnelle pour enjoliver l’histoire). 

Le jeu est constitué de six niveaux : Central Park, les 
rues de Manhattan, les égouts (avec plein de monstres 






bizarres), l'usine d'opium (je préfèrais les tripes), un 
labyrinthe de bureaux et enfin l’antre de votre ravisseur 
qui n’est autre que le Shogun Kunitoki, votre ennemi 
ancestral. 

En conclusion, j'émettrai quelques réserves quant à la 
qualité de ce deuxième volet de Last Ninja en partie à 
cause des graphismes et de l'animation, mais surtout à 
cause des commandes qui ne sont pas très pratiques à 
mon goût. 


Jean Delaite 


Note : 12/20 
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NOVAGEN AMIGA / ST 


Ça fait plus de deux ans que Novagen nous annonce la 
sortie de la suite de Mercenary. C'est enfin fait. 

La planète Eris vit dans l'angoisse permanente d'une 
collision avec l’astéroïde Damoclès (vous comprenez le 
nom maintenant). Les savants sont désemparés (comme 
toujours) et c'est à vous que le gouvernement fait appel. 
Lors du voyage, vous avez un problème avec votre cais- 
son d'hibernation et, au lieu d'arriver bien avant la 
catastrophe, vous débarquez trois heures avant sur la 
































a 


MAMAN ENA ES EE EL ELITE 


planète ! Derrière un jeu d'apparence simpliste se cache 
un scénario embrouillé et plein de surprises. Le système 
de jeu est le même que dans Mercenary, avec une 
meilleure animation et des formes en 3D pleines. Le per- 
Sonnage peut marcher, courir, conduire un véhicule ter- 
restre, aérien et même interplanétaire. 

Damociès pourrait être un bon jèu mais je persiste à 
penser qu'il aurait été bon de faire intervenir de vrais 
personnages et non des phrases sur l'écran, afin de le 
rendre plus captivant. Je vous dis ça parce qu’au bout 
d'une heure de jeu j'ai commencé à m'ennuyer sérieuse- 
ment. Damoclès aurait fait un excellent hit il y a deux 
ans. Dommage. 


Note : 12/20 Jean Delaite 
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Amiga 


UN DÉSASSEMBLEUR 
POUR 68000 


(AMIGA, MAIS AUSSI ST ET AUTRES MACHINES À BASE DE 68000). 


Tous les programmeurs en assembleur 68000 ont, ou auront à 
utiliser un jour un désassembleur. En effet, cet utilitaire est 
pratiquement le seul moyen d'investigation dont dispose le 
programmeur pour trouver ce que l’on appelle poliment les 
bugs (on leur trouve souvent des noms plus imagés quand on 
est en prise avec l’un d’entre eux). 


L'utilisation du désassembleur trou- 
ve sa place dans l’une des phases de 
la création d’un programme que 
nous pouvons détailler précisément : 


1- Création d’un fichier source en 
langage assembleur. 

Ce dernier est un langage à base de 
mnémoniques simples à mémoriser 
et à traiter. Pour plus d’informa- 
tions, il faut se reporter aux initia- 
tions à l’assembleur de ST MAG ; 

2- Assemblage de ce fichier. 

Le fichier source est transformé en 
fichier objet par un programme 


. nommé Assembleur. Le fichier objet 


contient du code machine qui est 
compris directement par le 68000. 
Par contre, il est difficile de se 
retrouver dans ce code sans l’aide 
de notre désassembleur. 

3- Exécution. 

Le 68000 tente d'exécuter le pro- 
gramme mais comme d'habitude il 
n’a rien compris à l'algorithme 
génial qu’on a vainement essayé de 
lui expliquer (arg)) ; 

4- Débogage: Exécution en pas à 
pas avec désassemblage. 

Notre utilitaire va ici le devenir 
(“utile”), en recréant un listing en 
assembleur à partir du contenu 
mémoire, c’est-à-dire du code objet 
(plus ou moins altéré par l'éxécution 
du programme lui-même). Une fois 
le bug trouvé, on peut envisager de 
modifier le source en retournant à 
notre phase 1. 


Le désassembleur est donc un utili- 
taire d'aide à la lecture du code 
machine, mais comme dans toutes les 
applications où le nombre d’informa- 
tions disponible est inférieur à celui 
qui est théoriquement nécessaire, 
l'ordinateur va être contraint de faire 
un choix. En effet, le code machine 
généré par l’assembleur contient 
moins d'informations que le code 
source : on perd, lors de l’assembla- 
ge, tous les commentaires, les labels 
(sauf avec l'option EXPORTS mais le 
désassembleur étudié n’en tient pas 
compte) et finalement toutes les 
variables évaluées lors de l’assembla- 
ge. De plus le 68000, comme 
d'ailleurs la majorité des micropro- 
cesseurs actuels, ne fait pas la diffé- 
rence en mémoire entre instructions 
et données car il ne possède qu'un 
bus pour chercher les types d'objets, 
cela oblige donc le désassembleur à 
donner son interprétation du conte- 
nu mémoire. Notre désassembleur 
essaiera toujours d'interpréter la 
mémoire en terme de programme... 
Ainsi, il fera tout pour associer aux 
octets le code d’une instruction, ce 
qui ne sera pas toujours exact en 


‘tenant compte des intentions initiales 


du programmeur. Il faudra donc lire 
les listings produits par le désassem- 
bleur avec un oeil critique. 


Le listing est découpé en 5 parties que 


l’on va étudier dès à présent, publiées 
en deux fois. 
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1/ Le programme d'essai et le pro- 

gramme principal. 

Le programme d'essai est une petite 
application écrite pour l'Amiga qui 
utilise le désassembleur et affiche le 
résultat dans une fenêtre. Le pro- 
gramme principal est le désassem- 
bleur proprement dit. Ce dernier est 
compatible avec les ST et autres 
machines à base de 68000. Tout le 
programme a été écrit en PC-RELA- 
TIF et se reloge tout seul. Cela veut 
dire que pour l’inclure dans un pro- 
gramme, il suffit de le charger 
comme des données habituelles et 
d'appeler la routine de désassembla- 
ge avec les paramètres suivants : 

* a0= adresse de début du désassemblage 
* a1= adresse de fin de désassemblage 
* d1= nombre maximum de lignes à 
fournir. Ceci est la deuxième condi- 
tion de fin avec celle imposée par al. 
On peut donc soit désassembler une 
zone mémoire comprise entre deux 
adresses en mettant $7fffffff dans d1 
ou désassembler un nombre de 
lignes donné en mettant $7fffffff 
dans al. 

* d0= adresse de la routine de sortie. 
Cette routine va être appelée à 
chaque fois que le désassembleur 
désirera sortir un caractère. On est 
donc libre d’envoyer le listing pro- 
duit vers un quelconque device ou 
plus simplement vers une zone 
mémoire. Cette routine ne doit 
modifier aucun registre et reçoit le 
code ASCII du caractère produit par 
le désassembleur dans DO (dans 
l’octet de poids faible évidemment). 


Il ne faudra évidemment pas dépla- 
cer le programme dans la mémoire 
une fois qu'il s’est auto-relogé sous 
peine d'assister à un magnifique 
plantage. En sortie, a0 pointe sur 
l'adresse de fin du désassemblage 





qui peut être utile quand on désire 
désassembler une zone mémoire en 
plusieurs fois. ‘ 


2/ Le décodage des instructions. 
Notre désassembleur, dans un but 
de réduction de la taille du listing, 
prend les octets en mémoire succes- 
sivement, ce qui n’est pas sans poser 
de problèmes (pour les MOVEMSs), 
et décode les instructions grâce à 
deux tables dont l'explication suit 
dans 4 et 5. De plus, pour les ins- 
tructions de saut relatif, il fournira 
un désassemblage ne correspondant 
pas exactement avec les normes 
Motorola en indiquant la distance 
du saut après le mnémonique : 
BNE.S 10 au lieu de BNE 10.5. 


3/ Les conversions. 

De facon à donner un résultat lisible, 
tous les chiffres décodés sont 
convertis en hexadécimal grâce aux 
3 routines affectées chacune à une 


. taille d'opérande donnée (octet, mot, 


mot long). Attention, aucun symbole 
$ n'est renvoyé car toutes les sorties 
sont en hexa. 


; Désassembleur 68000 E.Brunet 1989 


|; APPLICATION D'ESSAI ET PROGRAMME PRINCIPAL 


ï o+ 
move.l #txt,ptr 


MOVE.L 4,A6 

LEA dosname, Al 
MOVEQ #0,D0 

USR -408 (A6) 

MOVE .L DO, dosbase 
BEQ er 

MOVE .L dosbase, A6 
MOVE.L #name,D1 
MOVE.L #1005,D2 
USR -30 (A6) 
MOVE.L D0,conhandle 
BEQ er 
big loop: 

move.l zone, a0 
lea S7EFFffff,al 
move.l #16,d1 
move.l #sortie, d0 
bsr Desassemble 
move.l a0,zone2 


;Sauve sa base 


L| move.l dosbase,a6 
| move.l conhandle, di 


move.l #entree, d2 
moveq.l #1,d3 
jsr -42(a6) 








on pointe sur le début du buffer 


open library DOS 


;8i erreur alors fin 


souvre une fenêtre RAW 
:si erreur alors fin 


sadresse du désassemblage 
;adresse de fin sans importance er: 
smais on veut 16 lignes pile. 
‘pointe sur routine de sortie 
;désassemble la zone 

; sauve l'adresse de fin 


sentrée d’un caractère au clavier 


4/ La table des instructions. 

Cette table permet de reconnaître 
l'instrution contenue en mémoire. 
Elle a le format suivant : 

* 2 octets Masque : le mot lu par le 
désassembleur est tout d'abord mas- 
qué avec cette valeur grâce à un ET 
(AND) logique de façon à ne retenir 
que les bits représentatifs d’une 
famille d'instructions. 

* 2 octets Valeur : puis il est com- 
paré à cette valeur. S'il y a égalité, 
nous sommes bien en présence de 
cette instruction. 

* 6 octets Mnémonique: le mnémo- 
nique est contenu ici en code ASCII 
de façon à êtie envoyé directement à 
la sortie. 

* 4 octets Pointeurs sur tables 
d'adressage : une fois l'instruction 
trouvée, il faut encore décoder les 
opérandes, on trouve ici un pointeur 
qui indique où chercher dans la 
table suivante les informations 
nécessaires à ce décodage. 


5/ La table des adresses. 
Cette dernière table contient toutes 
les informations de décodage des 


lea entree, a0 
move.b (a0)+,d0 
cmp.b #’x”,d0 
beq fini 

cmp.b #"u”,d0 
bne non up 
sub.1 #32,zone 
*bra non down 
non up: 

cmp.b #”d”,d0 
bne non down 
move.l zone?, zone 


non_down: 

bra big loop 

fini: 

move.l dosbase, a6 
MOVE .L conhandle,D1 
USR -36(A6) 

bra fin 


move.l #-1,d0 
fin: 

move.l dû,d1 
move,l dosbase, 6 
jsr -144(a6) 

rts 


sortie: 
cmp.b #10, d0 
bne save 


Amiga 


opérandes et a été séparée de la pré- 
cédente car certains décodages sont 
communs à différentes familles d'ins- 
tructions (exemple: subi et addi). 

* 4 octets Taille : pointeur sur la rou- 
tine qui décriptera la taille. 

* 2 octets Paramètre : paramètre 
éventuel pour la routine ci-dessus. 

* 4 octets Opérande 1 : pointeur sur 
la routine qui décodera le premier 
opérande s’il y en a un (sinon on 
met un zéro), 

* 4 octets Paramètre 1 : paramètres 
éventuels pour la routine précédente. 
* 4 octets Opérande 2 : pointeur sur 
la routine qui décodera le deuxième 
opérande s'il y en a un. 

* 4 octets Paramètre 2 : paramètres 
éventuels pour la routine précédente. 


Le listing est long et pour soulager 
vos yeux, vos doigts et aussi votre 
colonne vertébrale, vous pouvez le 
trouver dans la disquette Amiga 
auprès de la Boutique de Pressimage. 


Eric Brunet 





si on a tapé eXit, on quitte 


si on a tapé Up, on monte de 32 oct. 


si on a tapé Down, on 


continue le désassemblage. 


; ferme la fenêtre 


exit 


: Routine de sortie de caractères, qui stocke les 
; Sorties jusqu'à tomber sur un retour chariot 


;retour chariot ? 
; sinon on sauve les caractères 























































bsr save 

MOVEM.L D0-A6,-(SP) 
MOVE.L dosbase, A6 
MOVE.L conhandle,D1 
MOVE.B DO, txt 
MOVE.L #txt,D2 
move.l ptr,d3 

sub.1 d2,d3 

subq #1,d3 

move.l d2,ptr 

[SR -48 (A6) 

MOVEM.L (SP)+,D0-A6 
rts 

save: 

MOVEM.L D0-A6,-(SP) 
move.l ptr,a0 
move.b d0, (a0)+ 
move.l a0,ptr 
MOVEM.L (SP)+,D0-A6 
rts 


:on envoie le tampon dans notre fenêtre 


:on en sauve trop, je sais... 








:on sauve le caractère dans un tampon 


dosname : 
DC.B “dos.library”,0 


texte venant en haut fenêtre RAN et taille de fenêtre 
bC.B “RAW:8/8/600/144/" 

dc.b “*t L'Oiseau Vert 1989 E.Brunet” 
dc.b “ ** uP,dOWN,ExIT **”,0 


zone: 
de.l $fc0000 
zone? : 


:on désassemble les ROMs Amiga (sacrilège !) 


“entrée de 1 caractère 


;tampon de sortie 


notre fenêtre a son numéro Handle 


err:ds.1 2 


PPT TTIITIIIIIIILLILLEL SLI LLLELELLEESEELS SE, 


Ld Désassembleur MC 68000 L 

* L'Oiseau Vert Juillet 1989. E.Brunet * 

PTTTITTT TITI LIIIIILLLLLLLECLLELEELESL SES EEE 
Ce programme fonctionne en Mode PC relatif, il se 
reloge donc tout seul et de manière transparente. 





8: :Base de relogement automatique 


: Taille prise pour décrire une instruction 
taille. instr equ 14 

: Taille prise pour décrire ‘un mode d'adressage 
taille adressage equ 22 





ds.w 1 
\1 equ RdsCount 

RdsCount set RdsCount+2 

endm 

Rdsl: macro 

ds.1 1 

\1 equ RdsCount 

RdsCount set RdsCount+4 

endm 

: Désassemble une zone mémoire. En entrée on a : 

: a0=Debut de désassemblage, al=Fin de désassemblage 


0 


: dû=adresse routine de sortie. Elle reçoit le code 


’ 


: ascii dans d0 et ne doit modifier aucun registre 


: di=nombre de lignes maximum à désassembler 
: En sortie on reçoit : a0=Adresse de fin de désassemblage 


Desassemble: 

bsr init desass 

Boucle desassemblage: 

bsr desassemble : une ligne 


prépare le désassemblage 


cmp.l adr fin _desassenblage (26), a0 ;Fin si 
bpl fin _desassenblage ;adr fin dépassée 
sou si nombre 


subq.1l #1,nb lignes max (a6) 
bgt Boucle _ desassemblage 
fin desassemblage: 

rts 


;de lignes dépassé 


; retour 
: Cette routine prépare le désassembleur 
: et le reloge à l'adresse où il a été chargé. 


init desass: prend une base relogeable 
lea var base (pc) ,a6 ; Sauve les paramètres 
move.l al,adr fin _desassemblage (a6) 

move.l d0, output (a6) 

move.l di, nb lignes max (a6) 


tst.w flag init (a6) ;Si init déjà faite, ne pas recommencer 
bne 1 init est deja faite 


movem.l d0-a6,-(sp) 


;on se protège d'une nouvelle init 


st flag init(a6) 
:on prend le début du programme 


lea s(pc),al 
move.l al,dl 


lea table instructions (pc) ,a2 :reloge la table instructions 
lea fin table _ instructions (pc) ,a4 
loop : relog : table instr: 
add.1 d1,10(a2) :reloge le pointeur sur table adressage 
add.w ftaille instr,a2 
cmp.l a4,a2 
bmi loop. relog table instr 
lea table adressages (pc) ,a3 ;reloge la table adressage 
lea fin: table _adressages (pc), ad 
Loop : relog : adressages: 
add.1 di, (a3) 

tst.l 6(a3) 

beq ne relog pas_ies 0_ 
add.1 d1,6(a3) 

ne relog pas les 0_: 


;reloge le pointeur sur routine 
:on évite de reloger les 0 


;reloge le pointeur sur routine 











RdsCount set 0 
Rdsw: macro 











tst.1 14(a3) :on ne reloge pas les 0 
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beq ne relog pas les 0 
add.l d1,14(a3) 
ne _relog pas les 0 







cmp.l a4,a3 






lea table EA+4(pc),a0 
moveq.w #14,d0 

loop relog table ea: 
add.1 di, (a0) 

add.w #8,a0 








movem,l (sp)+,d0-a6 


l init est deja faite: 
Its 





. 
’ 






desassemble une ligne: 
move.l a0,d7 

bsr convert hexa32 
move.l output (a6),a5 
move.b #” “,d0 

jsr (a5) 








move.w (a0)+,d0 
move.w d0,d1 


…Boucle trouve opcode: 
and.w (a2)+,d0 

cmp.w (a2)+,d0 

beq opcode trouve 
move.w d1,d0 

add.w #taille instr-4,a2 
cmp.l a3,a2 

bmi Boucle trouve opcode 


add.w ftaille adressage, a3 
bmi loop relog adressages 


on reloge aussi la table des adresses effectives 


dbra d0,1loop relog table ea 





move.l sp,SauveSP(a6) ;si erreur, 
;Récupère l'opcode 


lea table instructions (pc), a2 
lea fin table instructions (pc) ,a3 










son reloge l'adresse 








ça y est, tout est prêt 


; Cette routine désassemble une instruction 
; a0=Adr de l'instruction à désassembler. 






;Sort l'adresse 









puis un espace 


on cherche l'instruction 











Cherche l'opcode : 
imasquage du code 

puis comparaison 

;si c'est bon, on traite 
;Sinon on recommence 
;instruction suivante 

;si c'est pas la dernière 
;alors continue 


















move.w d1l,d0 
jsr (a5) 


on appelle la routine qui 
cherche ma taille 


move.l output (a6),a5 
move.b #” ‘,d0 
jsr (a5) 


un espace entre mnémonique 
set opérande 


move.l (a2)+,a5 
cmp.w #0,a5 

beq pas d operande?2 
move.w di,d0 

jsr (a5) 


on cherche l'opl 

isi pas d'opérande alors 
son a fini 

‘on appelle la routine qui cherche 
;l'opérande 1 






move.l (a2)+,a4 
cmp.w #0,a4 
beq pas d operande2 


on cherche l'op2 
;à moins qu'il n'y en ait pas besoin 


move.b #”,/,d0 
move,l output (a6) ,a5 
jsr (a5) 


met un virgule entre opl et op2 


move.w d1,d0 
jsr (ad) 


appelle La routine qui 
cherche l'opérande 2 


pas d operande2: 
fin normale de ligne: 


move.b #10, d0 ;retour chariot 

move.l output{a6),a5 en fin de ligne 

jsr (a5) 

rts ;on a désassemblé une instruction 


' DECODAGE DES INSTRUCTIONS 
;  Routines recherchant la taille 


pas de taille: 
addq.w #2,a2 
rts 


pas de taille à chercher 
on pointe sur la suite 


taille secrete:  ;taille n'apparaît pas dans désassemblage 
move.w (a2)+,taille presente (a6) ;mais on la sauve 
rts 


table taille type move: : $O0=RIEN %01=.B $10=.L %11=.W 
dc.b" *," HP RUES" 10 textes possibles .b .w .1 

taille type : move: traite les instructions qui décodent 
lea table taille type move(pc),a5  ;la taille comme MOVE 


bra trouve taille 















fin desass: ; si l'opcode n’a pas été trouvé 
lea interrogation(pc),a5 
moveq #1,d7 

bsr sort texte sans espace 
bsr sort _opcode 

bra fin normale de ligne 
interrogation: 

dc;b:"?721 

even 


;on sort un ?? (2 caractères) 


‘puis on sort le code hexa 
set un retour chariot table taille type addi: 
dc. b_ n D! fl w', LA “1, " A 
taiile type add : traite les instructions qui décodent 
lea table taille type addi (pc) ,a5 ;la taille comme ADDI 


bra trouve taille 


:00=.B 01=.W 10=.L 11=RIEN 





opcode trouve: ;on a l'opcode dans di 
clr.b taille presente(a6) ;au cas où... 

move.l a2,a5 

moveq.l #5,d7 ;on sort le mnémonique 

bsr sort texte sans espace ;qui fait 6 lettres maximum 
addq.1 #6, a2 ;on pointe après le nom 


trouve taille: ;routine générale récupération de taille 
move.w (a2)+,d6 ;récupère le No des bits contenant taille 
lsr.w d6, d0 dans l'opcode puis on récupère 
and.w ##11,d0 ila taille dans D0*2 

add.w d0, d0 ‘pour avoir une adresse paire 
trouve taille GENERAL: 
add.w d0,a5 

cmp.b #" ‘,(a5) 


move.l (a2),a2 ;on va dans la table générale de adressages 
move.l (a2)+,a5 ;on cherche la taille .b/.w/.1 


;a5 pointe sur le texte .b .w ou .1 
si pas de taille alors erreur 
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beq erreur | 
moveq #1,d7 ;sinon on sort le texte 
move.b 1(a5),taille presente (a6) 

bra sort texte sans espace 
table taille type moven: :table des textes pour MOVEM 
dc.b\tw,7:17 :0=.w 1=.1 
taille type: movem inverse: ;l1=.w 0=.1 

not.w d0 ;des instructions utilisent cette autre convention 
taille type movem: ;0=.w 1=.1 

lea table taille type movem(pc) ,a5 taille MOVEM sur 1 bit 
trouve taille 1 bit: :routine globale pour instructions qui 
move.w (a2)+,d6 :codent leur taille sur 1 bit 

1sr.w d6,d0 ;on récupère là aussi la position 
and.w #1,d0 :du bit que l'on isole dans d0 

add.w d0,d0 set on trouve l'offset pair 

bra trouve taille GENERAL ;on réutilise routine ci-dessus 
erreur: 

move.l a0,err 

move.l a2,err+4 
move.l SauveSP (a6), SP 
bra fin desass 


: détectée 





;arg c'est immonde mais 
:la cause est désespérée 
: Routines recherchant une condition pour Bcc et Scc 
condition: 
move.w (a2)+,d7 
lsr.w d7,d0 
and.w ##1111,d0 
add.w d0, d0 set qui nous servent pour calculer 
lea table cond(pc, d0.w),a5 :l'adresse du texte 
moveq #1,d7 à 2 caractères qu'il faut sortir 
bra sort texte sans espace 
table cond: 

de.bOT "MP MHI A, VLST 
de.b “CC”,"CS", "NE", "EQ" 
dc.b “VC”, "VS", "PL", "MI" 
de.b “GE”, "LT", "GT", "LE" 
even 


:recherche des N° de bits contenant 
la condition que l'on isole 





table des textes des conditions 


: Routines recherchant l'opérande 
; opcode inconnu type DC.W 

sort _opcode: 

move.w d0,d7 

bra convert hexal6 


;sort l'opcode 


: textes directs type move to CCR 

texte direct: 

move.l a2,a5 

addq #4,a2 :on sort un texte de 4 lettres 

moveq #3,d7 :contenu dans la table des adressages 
bra sort texte sans espace 





: Sauts relatifs Bcc 
short texte: 
dc: bis" 


texte à sortir si branchement court 

:nous devions respecter ici des 

conventions : Bcc.s adr = Bcc adr.s 
even 

saut relatif variable: 

tst.b d0 détecte si l'adresse est longue ou non 
beq saut relatif long ;en testant l'octet faible de l’opcode 

move.b do, d7 :si c'est court alors on récupère | 















ile déplacement qué l'on étend à 32 bits 
:pour l'ajouter à l'adresse actuelle 
:de désassemblage qui est égale à celle 
qu'a le ProgramCountor lors d'une 
;exécution du programme 
on sort l'adresse puis 
;on sort le .s pour short 


| ext.w d7 
ext.l d7 


add.l a0,d7 

addq #4,a2 

bsr convert_hexa32 
lea short texte (pc) ,a5 
bra sort texte sans espace 


saut relatif long: 
move.w (a0)+,d7 
lea -2(a0),a3 


:si l'adressage est relatif long 
;on reprend le déplacement dans d7 


ext.1 d7 ;on l'étend à 32 bits et on 
add.l a3,d7 ajoute l'adresse du désassemblage 
addq #4,a2 


bra convert _hexa32 :on sort directement le texte 
; Liste de registres (MOVEM) 
: Cette premiere routine s'occupe des MOVEMS 
: qui prennent les registres dans l'ordre D0 à A7 
liste reg d0 a7: 


moveq.l #0,d3 ;afin de réutiliser la routine 
move.w (a0)+,d7 ;déjà faite ci-dessous. Puis on 
moveq.w #15,d2 :va renverser les bits de l'opérande 
loop revert: 

roxr.w #1,d7 :ces 2 instructions renversent D7 
roxl.w #1,d3 set mettent le résultat dans d3 


dbra d2,1oop revert 
bra affiche liste 

: Cette deuxième routine s'occupe des MOVEMS 
; qui prennent les registres de A7 à D0 
liste reg a7 d0: 
moveq.l #0,d3 
move.w (a0)+,d3 
bra.s affiche liste 
liste reg a7 d0 MOVEM mem reg: 

moveq.l #0,d3 ;ici pas de renversement 

move.l SauveADR(a6} ,a5 

move.w (a5),d3 

: Cette routine affiche une liste de registres 
affiche liste: 

lea table index(pc), a5  ;on réutilise une table 

;qui contient déjà tous les noms de registres 


:affiche les registres 


;ici pas de renversement 
;on récupère juste l'opérande 





moveq #15,d2 :16 tours pour 16 registres 
moveq #1,d7 

move.l output (a6) ,a4 

clr.b d4 ;flag mettre slash = non qui 


:évite de mettre un / avant le ler registre cité 
loop affiche liste: 


ror.w #1,d3 ;registre demandé ? 

bcc pas de ce reg sinon alors rien 

tst.b d4 :sinon teste s’il faut un / 
beq pas de slash ;si pas de / alors saute 
move.b #"/",d0 sinon sort le / 

jsr (ad) 


pas de slash: 

bsr sort | texte sans espace 

st di :maintenant il en faudra un à chaque nouveau registre) 
pas de ce reg: registre non demandé 

add.w #8,a5 :saute 8 octets dans la table des noms 
ge d2,10op affiche liste set continue 
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addq.w #4,a2 

Its 

; Immédiat #. Voir mode IMM 

; Donnée placée dans l’opcode (1 à 8 bits) 
; Cela sert pour les MOVEQ, ADDQ... 


little data: 

move.b #4#,d0 sort le caractère # 
move.l output (a6),a5 

jsr (a5) 

move.l d1,d0 :récupère l'opcode et 


move.w (a2)+,d7 
bmi ChiffreNulEquHuit 


jun paramètre de désassemblage 
:si <0 alors saute, sinon 


lsr.w d7,d0 ;on ne fait qu'isoler les bits 
and.w (a2)+,d0 ;de l'opérande 

ChiffreNonNul : 

move.w d0,d7 ;on sort l'opérande 


bra convert hexa8 

; Certaines instructions, dont l’opérande est sur 4 
; bits, considèrent le 0 comme un 8 : MOVEQ #8 se 

; code comme si on avait MOVEQ #0 


ChiffreNulEquuit : 
neg.w d7 son rend positif le paramètre 
lsr.w d7,d0 ;on isole les bits de l’opcode 


and.w (a2)+,d0 
bne ChiffreNonNul 
move.w #8,d7 

bra convert hexa8 


set on les masque 
:si c'est nul 
;alors on sort directement 8 


; Registre de donnée Dn 


—….|reg data: 

… | nove.w (a2)+,d7 :on récupère les numéros de bits 
addq.w #2,a2 ;contenant le numéro de registre 
1sr.w d7,d0 spuis on l'isole grâce au AND 
and.w #9111,d0 | 
bsr modeDN ;on prépare le texte 


bra sort texte sans espace set on le sort 


; Registre d'adresse An 


reg adr: 

move.w (a2)+,d7 son fait comme pour les 
addq.w #2,a2 ;registres de données 
lsr.w d7,d0 

and.w ##111,d0 

bsr modeAN ‘on prépare le texte 


bra sort texte sans espace  ;et on le sort 
; Predécrémentation -(An) 

predecrem: 

move.w (a2)+,d7 ;idem 

addq.w #2,a2 

1sr.w d7,d0 

and.w #+111,d0 

bsr mode moins AN. 

bra sort texte sans espace 

1 ts 


: Postincrémentation (An)+ 
postincrem: 

_move.w (a2)+,d7 ; idem 
addq.w #2,a2 


Amiga 


1sr.w d7,d0 

and.w ##111, d0 

bsr mode AN plus 

bra sort texte sans espace 
i its 


; deplacement d(An) 
deplacement : 

move.w (a2)+,d7 ;idem 

addq.w #2,a2 

1sr.w d7,d0 

and.w #%111,d0 

bsr mode d AN 

bra sort texte sans espace 
; its 


; Effective adress reverse (REGISTRE, MODE). Certaines 
; ‘effectives adresses” (EA) sont codées dans ce sens 
Reff adr: 

move.w (a2)+,d7 
lsr.w d7,d0 

move.w d0, d2 

and.w #%111,d2 

and.w ##111000, d0 
lsr.w #3,d0 

bra on a le bon ordre 


;on récupère le No de bit 
:de l'EA et on l'isole 


; d2=MODE=BITS 2,1,0 
; dO=REGISTRE=BITS 5,4,3 


eff adr MOVEM mem reg: 
move.l a0,SauveADR(a6) 
addq.w #2,a0 ;saute 2 octets pour le movem 
; Effective adress (REGISTRE, MODE) 

eff adr: 

move.w (a2)+,d7 
lsr.w d7,d0 
move.w d0,d2 
and.w ##111, d0 
and.w ##111000, d2 
lsr.w #3,42 

; Cette routine ne traite que le cas DO=REG, d2=MODE 
on a le bon ordre: 
move.w d2,d3 
cmp.w ##111,d2 
bne pas mode111 
moveq.w ##1000,d3 
or.w d0,d3 
pas modelll:  ;quand on arrive ici, le mode est codé sur 4 
1sl.w #3,d3  ;bits au lieu de 3 pour gérer le mode 4111 comme 
lea table EA(pc,d3.w),al ;les autres. On se sert du mode 
move.l (al)+,d4 icomme pointeur sur la table table EA 
and.w (a2)+,d4 ;qui indiquera la routine à exécuter 
beq erreur ;à moins que le mode ne soit inconnu comme 

ile montre le test fait avec le and ci-dessus qui compare 
;le mode avec ceux possibles pour une instruction donnée 

move.l ({al)+,al ;on recupère l'adresse de la 

jsr (al) sroutine à exécuter et on y saute 


pareil mais dans l'autre sens 


; dO=REGISTRE=BITS 2,1,0 
;D2=MODE=BITS 5,4,3 


ile mode $111 a un traitement spécial 
;alors on crée un mode inexistant %1000 
set on ajoute les bits REGISTRE à ce mode 


bra sort texte sans espace ;on affiche le texte créé 


; Cette table a le format suivant: 
i = Chiffre donnant le bit correspondant au mode (c'est 1 masque) 
; = adresse de la routine traitant cette adresse effective 
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table EA: 


dc.l 1,modeDN-s,2,modeAN-s,4,mode AN -s 
dc.1l 8,mode AN plus-s,16,mode moins AN -s 
dc.l 32,mode d AN -s,64, mode d AN xi -s 
de.l 0,0 

de.l 128,mode ABSw-s,256,mode ABS1-s 

dc.l 512,mode d PC -s, 1024,mode d PC xi -s 
dc.l 2048,mode IMM-s,0,0,0,0,0,0,0,0 















































: Traitement des adresses effectives. Elles renvoient la 

: taille (d7) et l'adresse du texte (a5) pour permettre 

; l'appel de la routine sort texte sans espace 

; mode Dn pour les MOVE Dx,Dy 

modeDN : 

lea texte mode DN(pc),a5 

add.b #"0”, d0 on ajoute 65 pour se mettre en ASCII 
move.b d0,1(a5) :on met le chiffre directement dans 





moveq #1,d7 ;le texte ci-dessous 

rts 

texte mode DN 

dc.b “Dn” :ici le n sera remplacé par un chiffre 
even 


; mode An pour les MOVE Ax,Ay 

modeAN : 

lea texte mode | AN+2 (pc) ,a5 

add.b #"0”, 0 on fait le même traitement que pour 


move.b d0,1(a5) :le mode Dn mais on se décale par 
moveq #1,d7 ;rapport au début du texte pour 

rts ;n'afficher que An 
texte mode AN: ;ce texte est utilisé par 4 routines 

alors il tient compte des 4 possibilités 
;An ou (An) ou (An)+ ou -(An) (et même d(An)) 

de.b “-(An)+” 

even 
mode AN: : mode (An) pour les MOVE (Ax), (Ay) 
lea texte mode AN+1 (pc),a5 

add.b #"0”,d0 

move.b d0,2(a5) :on fait de même mais on affiche 
moveq #3,d7 jun peu plus de texte 

rts 
mode AN plus: ; mode (An)+ pour les MOVE (Ax)+, (Ay)+ 
lea texte mode AN+1 (pc) ,a5 

add.b #”0”,d0 

move.b d0,2(a5) sici on affiche le + 

moveq #4,d7 

rts 


mode moins AN : : mode -(An) pour les MOVE -(Ax),-(Ay) 
lea texte mode AN(pc),a5 


bra mode AN_ ;qui affiche les. (An) 
texte mode d AN : Xi: 
dc.b * (An: In. 2)" 
even 

; mode d({An,rn.z) par exemple 

: MOVE.1 O0(A7,A7.1),1(A0,D0.w) (Bizarre..!) 


;texte général des 
;modes d(An,rn.z) 


mode d AN xi : 
lea texte | mode d AN xi _(pc),a5 
add.w #"0”,d0 ;on prépare le code ASCII pour An 


move.b d0,2(a5) 
move.w (a0)+,d7 
move.w d7,d3 


set on le met dans le texte 
;on récupère l'opérande pour 
;compléter le reste. Puis on 
and.w #$£f,d7 :cherche le déplacement sur 8 
bsr convert hexaë bits et on l'affiche 

;on reçoit ici soit le cas d An xi soit le d PC xi_ 
mode d RN xi : 


1sr.w #8,d3 on décale de 9 bits pour récupérer 
;le registre Rn et avoir l'adresse du 
1sr.w #1,d3 texte qui complètera le texte final 


and.w ##1111100,d3  ;contenu dans texte mode d AN xi_ 
move.l table index(pc, d3.w),4(a5) ;recopie le “texte de 4 oct 
moveq #8,d7 demande une sortie de 9 caractères 
Its 

table index: 





de.b “DO.wD0.1”,"D1.wD1.1","D2.wD2.1”,"D3.wD3.1" 
de.b “D4.wD4.1","D5.wD5.1","D6.wD6.1”,"D7.wD7.1" 
de.b “AO.wA0.1","A1.wA1.1”,"A2.wA2.1","A3.wA3.1" 
de.b “A4.wA4.1",”A5.wA5.1”,"A6.wA6.1","A7.WAT.1" 


point equ table index+2 sadresse du texte .w 
















add.b #”0",d0 

move.b d0,3(a5) pareil (ça devient monotone) 
moveq #4,d7 

rts 

mode d AN : : mode (An) pour les MOVE (Ax), (Ay) 


move." (a0)+,d7 
bsr convert_hexa16 


;là, par contre, on affiche le seul décalage 
puis on réutilise la routine 


: Mode absolu court ex: JMP 4.w 
mode ABSy: 

move.w (a0)+,d7 

bsr convert _hexal6 

lea pointW(pc),a5 

moveq.l #1,d7 

rts 


:sort le nombre sur 16 bits 


point. equ table index+6 ;adresse du texte .1 
: Mode absolu long ex: JMP $70000.1 (il y a souvent 
; des choses à cette adresse) 
mode ABS: 

move.l (a0)+,d7 

bsr convert_hexa32 

lea pointL(pc),a5 

moveq.l #1,d7 

rts 


:sort un nombre sur 32 bits 


texte mode PC : 
dc.b “(PC)” 
even 

mode d PC_: 
move.w (a0)+, d7 
ext.l d7 

add.1 a0,d7 


récupère le décalage et étends-le 
:à 32 bits puis ajoutes-le à l'adr. 
sactuelle du désassemblage puis 
subq #2,d7 senlèves 2 car le PC pointe sur 
bsr convert _hexa32 ;l'opérande et non sur l'opcode 
lea texte mode PC_(pc),a5 puis on sort le (PC) 





moveq #3, d7 qui fait 4 caractères 


rts 
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texte mode d PC xi : 


_moce d PC XL. texte général du mode d(PC,Rn) 
dc.b “(PC,rn.z)" 


move.w (20)+,d7 
move.w d7,d3 
ext.w d7 
ext.l d7 
add.l a0,d7 
subq #2,d7 
bsr convert _hexa32 

lea texte mode d PC xi_ (pc) ,a5 

bra mode d RN xi ;on réutilise routine qui affiche le Rn.z 


;on récupère le décalage sur 8 bits 


;et on l'étend sur 32 bits avant de le sortir 


on tient aussi compte de l'avance du PC 


addq.1 #4,a2 
mode IMM: 

move.b #”#”,d0. 
move.l output (a6),a5 
jsr (a5) puis texte vide car cet adressage n'a 
lea texte vide(pc),a5 ;aucun texte personnel selon la taille 
move.b taille presente(a6),d3 ;de l'instruction 

beq erreur set s'il n'y à pas d'erreur 
cmp.b #"b”,d3 
beq diese pointB 
cmp.b #'w”,d3 
beq diese pointW 
cmp.b #”1",d3 
beq diese pointL 
bra erreur ;on prend des précautions 

; Ces 3 routines sortent un opérande d'une certaine taille 
diese point: 
move.w (a0)+,d7 
bra convert hexa8 


on sort un # pour l'adressage immédiat 


;on appelle la routine concernée 


;l'opérande .b est codé comme un .w 


diese pointW: 
move.w (a0)+,d7 
bra convert _hexal6 


diese pointL: 
move.l (a0)+,d7 
bra convert hexa32 


LES ROUTINES DE SORTIE 

; Les 3 routines suivantes sortent de l'hexadécimal 
: d7=nombre à sortir sur 32 bits 

; a6=adresse de base des variables 
convert _hexa32: 

movem.l d0-d7/a0-a6,-(sp) 
moveq #7,d2 :8 tours pour 8 quartets 

lea table convert (pc) ,al :on pointe sur notre table 
move.l output(a6),a5 ;prépare le saut à la routine de sortie 
boucle convert32: 
rol.l #4,d7 

move.l d7,dl 

and.l #15,d1 

move.b O(al,d1.w),d0 
jsr (a5) 

dbra d2,boucle convert32 
movem.l (sp)+,d0-d7/a0-a6 


;on sauve tous les registres 


;prend le quartet (ou nibble) suivant 
ion l'isole dans di 


;et on cherche son code ASCII 
;avant de faire la sortie 


;ni vu ni connu... 


rts 

; d7=nombre à sortir sur 16 bits 

; a6=adresse de base des variables 
convert hexal6: 

movem.l d0-d7/a0-a6,- (sp) 
moveq #3,d2 

lea table convert (pc), al 
move.l output (a6),a5 
boucle convert16: 

rol.w #4,d7 

move.l d7,d1 

and.l #15,d1 

move.b O(al,di.w),d0 

jsr (a5) 

dbra d2,boucle convert16 
movem.l (sp)+,d0-d7/a0-a6 
rts 

; d7=nombre à sortir sur 8 bits 

; a6=adresse de base des variables 
convert hexa8: 

movem.l d0-d7/a0-a6,-(sp) 

moveq #1,d2 ;2 quartets à sortir 
lea table convert (pc) ,al 
move.l output (a6),a5 
boucle convert8: 

rol.b #4,47 

move.l d7,d1 

and.1 #15,d1 

move.b D(al,di.w),d0 

jsr (a5) 

dbra d2,boucle convert8 
movem.l (sp)}+,d0-d7/a0-a6 
rts 
table convert: 

dc.b “0123456789ABCDEF” 


;4 quartets à sortir 


on fait la rotation sur 16 bits 


;sortie du carac 


; Sort un texte d'une longueur donnée mais s'arrête si elle 
; rencontre un espace. a5=adr texte, d7=longueur max-1 

sort texte sans espace: 
movem.l d0-d7/a0-a6,- (sp) 
move.l output (a6),a4 
loop sort t s e: 

move.b (a5)+,d0 

cmp.b #" \,dû 

beq fin sort ts e 

jsr (ad) 

dbra d7,loop sort t s e 
fin sort ts e: 

movem.l (sp)+,d0-d7/a0-a6 
rts 

; Variables système. Ces variables sont stockées de manière 
; relative à var base, aussi leurs labels ne sont que leur 
; offset par rapport à var base 
var base: 

Rdsl adr fin desassemblage 
Rdsl output 

Rdsi nb lignes max 
Rdsw flag init 

Rdsw taille presente 
Rds1 SauveSP 

Rdsl SauveADR 


;là encore, on sauve tout 
;on prépare la sortie 


;on prend le caractère suivant que 
;l'on compare à un espace pour 
ivoir si l'on sort de la boucle 
on envoie le caractère 

:on tourne D7+1 fois 


set on récupère tout 


;adr où s'arrêter 

;adr routine de sortie 

2e condition d'arrêt 

empêche 2 relogements successifs 
‘taille de l'instruction 
sutilise en cas d'erreur 
sutilise pour le movem 

; suite et fin le mois prochain... 
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LE GST 40 A 


La société Satellite et Télévision (SATV) doit commercia- 
liser très prochainement un nouveau type de genlock 
incrustateur. Il se distingue des autres par son rapport 
qualité/prix exceptionnel. Son prix sera en effet infé- 
rieur à 2300 francs, le rendant abordable par une plus 
grande famille d'utilisateurs. 

Ses performances, dues à un concept intelligent, peuvent 
faire pâlir de jalousie des modèles nettement plus sophis- 
tiqués. En effet, le signal vidéo à incruster n'est à aucun 
moment traité, ce qui garantit une image de sortie absolu- 
ment identique à celle d'origine. Un seul mode d'incrus- 
tation est possible (| Amiga étant sur l'image vidéo), mais 
il est d'excellente qualité. Le GST 40 possède une détec- 
tion automatique de signal vidéo en entrée, qu'il peut 
substituer lors d’une rupture de celui-ci, C’est le cas lors 
des différentes manipulations d'un magnétoscope (rem- 
bobinage ou arrêt momentané), et évite ainsi tous plan- 
tages du système. Cette technique permet par ailleurs de 
remplacer de façon économique un encodeur PAL, il suf- 
fit simplement de ne pas mettre de vidéo en entrée, et 
vous pourrez transférer directement sur magnétoscope 
(PAL uniquement) vos animations ou dessins. 

Une simplicité de mise en oeuvre hors du commun font 
du GST 40 Amiga un outil idéal pour ceux dont l'exigen- 
ce de qualité est tributaire d’un budget serré ou des 
connaissances techniques moindres. Une version uni- 
quement Super VHS devrait, elle aussi, voir le jour. 


PERFORMER 2.0 


Une seconde version plus complète de ce logiciel de pré- 
sentation graphique, que nous avions visité avec vous le 
mois dernier, est annoncée pour la rentrée. Elle devrait 
convaincre les professionnels de l’image, et offrir grâce à 
ses nouvelles ouvertures un champ d'applications enco- 
re plus vaste, La “2.0” accepte encore plus de formats 
graphiques, notamment les fichiers RGB 8, RGB N, RGB 
24, et surtout le “new movie” utilisé par Sculpt. Pour ce 
dernier, il permet entre autres de le décompacter et d'en 
extraire les images. 

Cette version est aussi compatible avec le Workbench 2.0 
et peut être pilotée soit par ARexx, soit par le MIDI. 
D'autre part, un module spécial de pilotage sera intégré 
au séquenceur musical Bars & Pipes, voilà de quoi 
séduire les mordus du multimédia. L'importateur fran- 
çais a trouvé un palliatif à un bug de l’Amiga, qui inter- 








NEWS 


disait l'affichage des images haute résolution Pal overs- 
can au-delà de 8 couleurs. Il vous suffit de venir dans les 
“préférences” et d'opérer un recentrage de l'écran (vers 
la gauche), et de sauvegarder lesdites préférences. Et 
zoup, le tour est joué ! Cette astuce est aussi valable avec 
les autres logiciels ayant ce type de problème, merci CIS. 
Pour revenir à cette nouvelle version de Performer, une 
application ARexx est offerte avec, et permet d'enregis- 
trer en temps réel une séquence d'images ou d'anima- 
tion et de les “rejouer” avec un timing exact. Vous pour- 
rez acquérir ce superbe outil pour 950 F environ. 


METRE 


BU UE et RAY AN 


MMU 1.0 et PERFECT SOUND III 


MMU (Music Management Unit) est un logiciel d'assem- 
blage et d'édition d'échantillons sonores très complet. La 
version 1.0 de ce soft sera offerte gratuitement avec Perfect 

Sound II. Un interfaçage direct entre ces deux produits 
offre une puissance et une palette de possibilités étonnan- 
te. Vous pourrez acquérir très prochainement cet ensemble 
pour un peu moins de 800 FE toujours distribué par CIS. 


ea 


ÇA VAUT LE COUP ! 


Le même importateur nous communique en dernière 
minute une offre commerciale promotionnelle imposible à 
passer sous silence. L'acheteur du fameux Kit pour Amiga 
2000 : A 3001, équipé d’un 68030 à 28MHZ, d'un coproces- 
seur arithmétique 68882, de 4Mo de mémoire 32 bits et 
d’une interface pour disque dur, se verra offrir le disque 
dur, et pas n'importe lequel puisqu'il s'agit d'un Quantum ; 
40Mo ! Cette offre, valable pendant tout l'été, permet de 
réaliser une économie substancielle de 6000 F environ, soit 
le tout pour un tout petit peu moins de 20000 F 


DESIGN... 


La société Bus+ propose une carrosserie “tower” desti- 
née à recevoir un Amiga 2000 ainsi que différents péri- 
phériques. De construction allemande traditionnelle, 

rien na été laissé au hasard. L'alimentation a été décalée 
vers le haut, permettant ainsi de disposer d’une place 
non négligeable entre les cartes et elle-même. Les faces 
avant et arrière sont en plastique moulé. On remarque 
tout de suite que les interrupteurs de façade ne corres- 
pondent à rien de concret sur l'Amiga, ce dernier 
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n'ayant que faire du reset, ou du mode turbo. Par contre, 
ils peuvent être pratiques pour d'éventuelles mises en 
route de périphériques internes... Toute la visserie et sur- 
tout les différents connecteurs sont aussi fournis. Le 
prix, avoisinant les 3400 F, peut dissuader les amateurs 
de look, maïs reste justifié pour ceux qui possèdent une 
configuration importante, où ceux qui ont intégré 
l'Amiga dans leurs tâches quotidiennes. 


Profitons-en aussi pour annoncer la disponibilité, chez le 
même importateur, d’un boîtier destiné à l'Amiga 500. 
Le “Checkmate A1500” peut recevoir un Amiga 500, et 
possède les emplacements pour un disque dur A590, et 
deux lecteurs internes. Le joystick, la souris et le clavier 
dorénavant détachables, se connectent en face avant: 
Dans le boîtier, restent les emplacements pour différents 
modules, encore en dévelopement, un slot vidéo pour 
recevoir un antifliker où un genlock, ainsi qu'une carte 
“fond de panier” pour recevoir des cartes d'extension de 
2000. II vous faudra débourser environ 2900 F pour avoir 
un look intermédiaire entre un 1000 et un 38000... 

Pour en finir avec Bus+, et pour laïsser une idée d'achat à 
ceux qui sont moins fortunés, ils pourront, pour 450 FE, 
acquérir un câble antiflicker fonctionnant avec un simple 
moniteur monochrome PC. Oh, j'allais oublier un ventila- 
teur silencieux pour Amiga 2000, et ce pour 700 F environ. 


À 01 en non ou 





Le plus ancien spécialiste de l'Amiga à Paris 
«Commodore France 
ont le plaisir de vous présenter en Avant-première leur dernière production : 


ervicef 
L'ordinateur qui par ses capacités $ 

graphiques et sonores va LE ; 
révolutionner le marché de le à Titrage ; 


l'informatique associée à la vidéo ! | S montage ; 


t ferts vidéo... 
Venez découvrir ce fabuleux outil de FARRRES VERS 
communication qu'est l'Amiga 3000 l es 
autour de 2 Régies Vidéo dotées W D epris 
ar ntr 
des plus récentes innovations £ 
technologiques Sony. 


Régies animées par Thierry, pionnier nu Régies Vidéo clés en main : 

de l'Amiga et Patrick de la société MN Formation assurée ; 

Point de Vue assistance permanente ; 
location de 


Anis" be LU Régie Vidéo. 





le logiciel multimédia le plus fabuleux 
du marché ! 

Le nec en matière de logiciel 

«Show, démo-tournante, ..» 

pour vos présentations 


Tél. : (1) 45.81.51.44 
Fax : 45.88.33.45 














LA FIN D'UNE POLEMIQUE ET LE 
DEBUT D’UNE AUTRE 


En attendant la sortie fort improbable d’un émulateur 
Amiga sur ST, CICI annonce la disponibilité, pour début 
septembre, d'un émulateur ST sur notre bon Amiga. Il 
possède une partie Hard se glissant dans un 2000, et des 
versions pour 500 et 1000 seront aussi disponibles. Pour 
l'instant, une version tourne chez l’importateur, qui a 
réussi à faire fonctionner de nombreux logiciels sous 
toutes les résolutions, tels que Calamus, Signum 2, Ara- 
besque, Stad, Mega Paint, le GfA basic... 

Medusa (tel est son nom) peut créer sur certains disques 
durs une partition ST. Cet émulateur est fourni sans TOS 
mais avec un petit logiciel qui permet d'aller le 
“prendre” dans un ST, aïe. ! Le constructeur travaille 
actuellement sur l’interfaçage de la partie MIDI, ce qui 
permettrait d’avoir d'un seul coup une logithèque musi- 
cale très impressionnante (et multitâche, nananère!), 
mais là restons prudent... 


MIAMI VICE ET VERSA 


Non, il n'y a pas que des gendarmes et des voleurs qui 
courent partout dans les rues de Miami. Il y a aussi 
Hologramophone Research, qui nous propose deux softs 
musicaux très originaux : Hyperchord et Pixound. 

Tous deux utilisent le générateur sonore de l'Amiga 
ainsi que le MIDI. Ils sont compatibles avec Dr.T's KCS 
et E.A's DMCS, pour l'édition et pour la création de par- 
titions. Ils fonctionnent sur tout type d’Amiga disposant 
d’un minimum de 512K. 


HYPERCHORD 

Hyperchord est un séquenceur basé sur une vue ato- 
mique (les notes) et moléculaire (les motifs) de la 
musique, les thèmes variant en rythme, en hauteur et en 
ordre d'apparition. On peut ainsi créer des séquences 
comprenant jusqu'à 40 notes, qui seront manipulées en 
temps réel. Hyperchord est constitué de 4 programmes 
complémentaires. Mode Maker permet l'optimisation des 
modes tonals d'Hyperchord. Les échelles, les modes et 
les arpèges peuvent être affichés sous forme de “pipe” 
musical, ou comme des barrettes sur une corde, ou enco- 
re en cercles concentriques. De nombreux outils sont dis- 
ponibles pour faciliter la génération des échelles. Rhythm 
Maker permet, comme son nom l'indique, de créer 
jusqu’à 39 rythmes, en utilisant des notes variant de la 
64ème de noire à la ronde. Holistic Window est une inter- 
face graphique. Enfin, on gère le tout dans Hyperchord, 
où les séquences peuvent être renversées, bouclées, 
mixées, etc. En playback, la tonalité est à tout moment 
modifiable, 60 modes sont à votre disposition, du penta- 
tonique à la 7ème mineure, en passant par les gammes 
mathématiques. D'autres paramètres sont également 
accessibles, comme le pitch, la vitesse, le rythme, le volu- 
me, l’ordre des notes, l’orchestration, l'harmonie... On 
peut aussi générer des séquences de façon algorithmique. 


PIXOUND 
Pixound est un interpréteur d'écran musical, c'est-à-dire 
qu'il transforme l'empreinte graphique d'une image en 


musique. La couleur de chaque pixel détermine un 
accord, et l’on bénéficie du, même nembre de modes 
tonals que précédemment, pour “accorder” l'écran au 
style de musique désiré. Les graphistes découvriront 
ainsi une face tout à fait inhabituelle de leur travail, et 
pourront tout aussi bien écouter une fractale que créer 
l'image d’un prélude de Bach ou d’un 45 Tours des Sex 
Pistols... On dispose pour ce de 5 “musical painting”, de 
20 preset d’harmonies sur 3 voix, de 13 algorithmes 
générateurs d'écran, de différents modes de lecture, de 
modulateurs de couleurs, etc. Pixound est aussi compa- 
tible avec les instruments au format IFF. 


Ces deux produits ne sont malheureusement pas encore 
disponibles en France, mais peuvent être commandés 
aux USA en contactant directement Hologramophone 
Research au 6225 S.W 145 Street, Miami, Florida 33158, 
ou en téléphonant au 19(1)305.252.2661 (Parents, sur- 
veillez vos notes de téléphone...). Prix communiqués : 
Hyperchord 159$, Pixound 99$. 


XANADUUUUU... 


Cette société spécialisée dans le son professionel, propo- 
sera en fin d'année une carte fonctionnant sur A2000 et 
A3000 permettant l'acquisition de données audio de très 
haute qualité. Cette carte d’échantillonnage fonctionnera 
en 16 bits sur deux canaux pouvant être utilisés indiffé- 
remment de façon indépendante, ou en stéréo. Sa vitesse 
d'échantillonnage est multiple : 96, 88.2, 48, 44.1, 24 et 
22.05 KHz, et elle est programmable par soft. Cette possi- 
bilité autorise la conversion entre les différents standards 
professionnels sans perte de qualité. Des fonctionss 
propres aux magnétophones professionnels, tels que drop 
in/out, ou le rerecording entre pistes, sont déjà intégrées 
au hardware. Cette carte est auto-configurable et l'Amiga 
la gère comme une carte d'extension mémoire 128Ko. Des 
mots de commandes permettent, quant à eux, de déclen- 
cher les différentes fonctions disponibles, ou de paramé- 
trer le Hard. La carte est prévue pour un fonctionnement 
en “Direct to Disk”, dans le cas où elle serait associée avec 
un disque dur suffisamment rapide (couramment dispo- 
nible). Elle sera fournie avec un logiciel de base simulant 
un magnétophone numérique professionnel et sera dispo- 
nible dès le début du mois d'août pour les développeurs. 
Pour ceux qui ne pourraient attendre, ou qui désireraient 
développer une application spécifique, les spécifications 
hard et soft sont disponibles dès maintenant. 


AMOS 


L'éditeur de ce superbe langage initialement destiné à la 
construction de jeux demande à tous ses possesseurs de 
retourner le plus tôt possible leur carte de garantie, un 
cadeau les attend ! Une disquette pleine est en effet à 
leur disposition. Ils y trouveront : 

- une procédure d'édition de menus ; 

- Amal, qui n’est ni plus ni moins que le langage d'animation ; 
- un convertisseur permettant de récupérer les fichiers 
Soundtracker ou Sonix ; 

- le “Run-Only” pour de diffuser librement vos applications ; 
- 600 sprites dessinés pour construire vos jeux. 
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Pour ce qui est des mois à venir, dès septembre vous 
pourrez gérer la 3D en formes pleinés, tandis que dans le 
courant de l'automne, une version professionnelle de ce 
soft devrait voir le jour, incluant des commandes 
propres, entre autres, à la vidéo. 


YOU KNOW WHAT ? I'M HAPPY ! 


Moi aussi, mon cher Droopy, de vous faire part de l’arri- 
vée imminente des produits Disney Software en France. 
Ces logiciels sont le fruit d’une collaboration (très réus- 
sie!) entre Nathan Software, Titus, et Walt Disney. Cha- 
cun y à apporté le must de sa spécialité, que l’on retrou- 
ve d’ailleurs dans les trois catégories de softs proposées : 
le jeu, l’éducatif et les techniques d'animation. 


Voici les petites merveilles que l’on trouve dans la partie 
“Entertainment” : 


“DICK TRACY" est une série de 3 jeux d’arcade/action. 
Issu du film du même nom, où figurent entre autres 
Warren Beatty et Madonna, il retrace les aventures du 
détective. Avec ses potes Flattop et Pruneface, plongez 
dans les ruelles du crime, affrontez les truands de la 
pègre et sauvez la belle Tess. 

“DUCKTALES: THE QUEST FOR GOLD”, vous 
l'aurez deviné, est un jeu d’action/aventure où se succè- 
dent des contrées exotiques pleines de pièges et de créa- 
tures aussi sombres qu'une nuit d'orage ou que la plus 
noire des grottes. Glomgold ou le trésor se cacheraient-il 
à Whatsamatterhorn? 

“ARACHNOPHOBIA” est un action/thriller en 3D, 
merci Monsieur Spielberg ! Des araignées pas du tout 
gentilles, au venin mortel, et intelligentes de surcroît, se 
sont tranquillement installées en ville. Eh oui, elles ont 
capturé votre famille, allez donc les délivrer avant les 
pontes intempestives de la reine. 


Pour les enfants, c'est bien sûr la grande saga des per- 
sonnages de Disney : 


“MICKEY'S CROSSWORD PUZZLE MAKER" est des- 
tiné aux 5/8 ans. L'apprentissage du vocabulaire se fait 
avec Mickey et ses p'tits potes, à travers la création et la 
reconstitution de mots croisés imbriqués d'images et de 
mots. L'oeuvre reconstruite toute langue dehors s'affiche 
ensuite sur le mur de la chambre. 

‘DONALD'S ALPHABET CHASE” est un programme 
pré-scolaire destiné aux 2/5 ans, axé sur la reconnaissan- 
ce des lettres. L'alphabet en folie, composé de créatures 
féériques, sème la panique chez Donald. L'enfant doit 
intervenir au clavier pour faire un peu de “ménage”. 
“MICKEY'S RUNAWAY ZOO” familiarise les 2/5 ans 
avec les chiffres. Les animaux du zoo se sont échappés, 
et il faut aider Goofy et Mickey à ramener les char- 
mantes petites bêtes chacune dans leur cage, par le biais 
du pavé numérique. 

“GOOFFY’S RAILAWAY EXPRESS" stimule les 2/5 ans 
dans la reconnaissance des couleurs et des formes. C'est 
un voyage enchanteur à bord d’un train à la fumée 
magique, où les formes, sitôt attrappées, se transforment 
en animaux, plantes ou objets quotidiens. 
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Dans la catégorie “créativité”, Disney Software a aussi 
frappé très fort: “THE ANIMATION STUDIO” est un 
programme de dessin et d'animation basé sur les 
célèbres techniques d'animations des studios Disney. La 
création de séquences s'effectue par transparence des 
cels, dont on détermine l'ordre d'apparition et le temps 
d'affichage. Vous pourrez intégrer vos animations dans 
différents fonds, et y rajouter des couleurs, de la 
musique ou des effets sonores. Le soft est livré avec 3 
disquettes foisonnant d'animations, de musique, 
d'effets, et d'outils de créations. 

“DICK TRACY CRIMESTOPPERS PRINT KIT” est la 
panoplie complète du parfait détective. On y trouve les 
personnages du film avec le héros, les bons et les 
méchants, tout le monde y est. C'est le logiciel idéal 
pour imprimer des cartes, des posters, du papier à en- 
tête, des badges, etc. 


La disponibilité commerciale de ces logiciels s’échelon- 
nera sur une période de six mois. Dès septembre, vous 
pourrez acquérir Animation Studio et toute la série des 
éducatifs. En octobre, c’est au tour des Dick Tracy, suivit 
de Duck Tales en novembre. Il faudra attendre jusqu'au 
mois de février 90 pour profiter enfinn d’Arachnopho- 
bia. Patience! 


PROMOTION DU MOIS 


Mr Georges FORNAY, directeur financier et administra- 
tif de Commodore France, vient d'être promu Directeur 
Général. Commodore France retrouve enfin sa tête après 
quelques mois d'absence... Mais le communiqué de pres- 
se fait aussi état d’un certain nombre de résultats, 
notamment financiers, de la firme française, et si l’on en 
croit les chiffres annoncés, c'est plutôt encourageant : 
80% de croissance moyenne pour un chiffre d’affaires de 
près de 300 MF sur l'exercice 90, ce dernier étant com- 
pris comme la période allant de Juillet 89 à Juin 90. La 
seule progression du dernier trimestre (échu au 31 Mars 
90) a été de 97%, soit pratiquement la “culbute” par rap- 
port au dernier trimestre de l'exercice précédent. Qui a 
dit que Commodore allait mal ? 


L’'AMIGA 3000 


Après nos premières descriptions de cette nouvelle 
machine, il était indispensable de vous fournir les prix 
des configurations désormais disponibles chez Commo- 
dore (tous ces prix sont ici annoncés en Hors Taxes). Sur 
la base d'un 3000 équipé de 1 méga de mémoire Fast et 
de 1 méga de mémoire Chip, on trouve les cas de figure 
suivants : : 

- 16 MHz, avec disque dur Quantum 40Mo/19ms : 
21.990 F sans moniteur, et 25.990 F avec moniteur 14 
pouces ; 

- identique mais en 25 MHz : 25.990 F sans moniteur, et 
29.990 F avec ; 

- 25 MHz avec disque dur de 100Mo aux performances 
identiques : 30.990 sans moniteur et 34.990 avec ; 

Vite, ma tirelire !... 
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UN PONT ENTRE 
DEUX MONDES 


Cet article n’est que le début d'une série traitant de la carte 
PC. En effet, les utilisateurs que vous êtes ne possèdent pas 
toujours toutes les informations nécessaires pour tirer le 
meilleur parti de cette extension tant sur le plan logiciel que 
matériel. Nous allons aujourd'hui nous attacher à la 
description de la partie logicielle qui régit les échanges entre 
les deux mondes que sont AmigaDos et Ms-Dos. 


Préambule : pour les informations trai- 
tant du mapping mémoire au niveau de 
la zone Amiga dédiée à la carte passe- 
relle ainsi que des 128k de RAM double 
accès implantés sur cette dernière, 
reportez-vous à la documentation qui 
vous a été fournie par Commodore. 


DESCRIPTION ET CONTENU DE 
LA LIBRAIRIE JANUS 


Les différentes routines qui vont 
être décrites, permettent un accès de 
bas niveau au ‘system Janus” et 
régissent ainsi les échanges entre 
l’Amiga et le PC. 


LES ROUTINES PUBLIQUES 


* AllocJanusMem 
* ChecjJanusInt 

* CleanupJanusSig 
* FreeJanusMem 

* GetJanusStart 

* GetParamOffset 
* JBCopy 

* JanusLock 

* JanusMemBase 

* JanusMemToOffset 
* JanusMemType 

* JanusUnLock 

* SendJanusint 

* SetJanusEnable 

* SetJanusHandler 
* SetJanusRequest 
* SetParamOffset 

* SetupJanusSig 


Ces routines sont contenues dans une 
librairie libellée Janus.library, qui est 
chargée par le système durant la pro- 
cédure d’autoconfig. Pour l'interfaça- 
ge avec le langage C, il existe une 
librarie linkable “lib.lib“. Toutes les 
routines qui retournent une valeur, la 
mettront dans DO. 


* oldHandler = SetJanusHandler 
Gintnum, intserver)/(D0,A1) 


Cette fonction met en place un ges- 
tionnaire d’interruptions pour une 
une interruption Janus particulière. 
L'ancienne interruption est retour- 
née. Une valeur nulle signifie qu'il 
n'existe pas de gestionnaire d'inter- 
ruption et que les interruptions ne 
peuvent être traitées. 


* oldEnable = SetJanusEnable 
(Gjintnum, newvalue)/(D0,D1) 


Chaque jintnum (ou numéro d'inter- 
ruption JANUS) peut être indivi- 
duellement activé ou désactivé (en 
plus de la possibilité de désactiver le 
gestionnaire d'interruption). Si une 
interruption est désactivée, les 
demandes ou événements la concer- 
nant ne génèreront pas d’interrup- 
tion. Ces demandes peuvent être 
faites par la routine SetJanusRe- 
quest. Si la valeur de NewValue est 
nulle, alors l'interruption est désac- 
tivée, et si la valeur est égale à 1 
alors c’est qu’elle est activée, toutes 
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les autres valeurs étant réservées. 
Cette routine génère une interrup- 
tion si une interruption active à une 
demande en attente. 


* oldRequest = SetJanusRequest 
(jintnum, newvalue)/(D0,D1) 


Cette fonction active ou désactive 
une demande d'interruption de jint- 
num. Si newvalue est égale à 0, alors 
la demande est désactivée. Si newva- 
lue est égale à 1 alors la demande est 
valide. Dans les autres cas, l’ancienne 
valeur de la demande est retournée. 


* SendJanusint( jintnum)/(D0) 


Cette routine est pratique pour les 
requêtes “system”, c'est-à-dire que 
ces demandes ne sont pas directe- 
ment générées par le hardware. Cet 
appel inscrit la demande dans la 
“zone d'interruption” et envoie une 
interruption hardware au PC. 


* CheckJanusint(jintnum)/(D0) 


Cette routine retourne le mot d'état 
de la zone d'interruption. Il peut être 
utilisé pour savoir si le PC a déjà été 
avisé de l'interruption. Une valeur 
égale à $FF JNOINT signifie qu'aucu- 
ne interruption n'est en cours, OU 
probablement que le PC l'a déjà traï 
tée. Une valeur égale à $7F JSEN- 
DINT signifie que l'interruption est 
en attente. Toute autre valeur devra 
être traitée avec prudence. 


* ptr = AllocJanusMem 
(size, type)/(D0,D1) 


Cette fonction alloue de la mémoire 
dans la zone libre buffer ou para- 
mètres, et retourne un pointeur per- 
mettant au 68000 d'adresser cette 
zone. Le paramètre “size” est exprime 








en octets. Si la valeur de retour est 
égale à 0 , cela signifie qu’il n'y a pas 
suffisamment de mémoire libre. Le 
paramètre “type” détermine quel 
type de zone est désiré, cela peut être 
soit MEM PARAMETER ou alors 
MEMF _BUFFER. Vous pouvez spéci- 
fier également le type d'accès mémoi- 
re auquel fait réference le pointeur. 
Les quatre choix possibles sont : 

- MEM_BYTEACCES 

- MEM_WORDACCES 

- MEM_ GRAPHICACCES 

- MEM_IOACCES 


* FreeJanusMem (ptr, size)/(A1,D0) 


La mémoirè spécifiée est libérée, 
quelques erreurs mineures peuvent 
être rencontrées, et seront signalées 
par le Système. 


* ptr = JanusMemBase(type)/(D0) 


Cette fonction retourne l'adresse de 
base de la mémoire référencée par 
“type”, se reporter à AllocJanusMem. 


* type = JanusMemlype(ptr)/(D0) 


Cette routine retourne le type du 
pointeur. Des résultats erratiques 
peuvent survenir si “ptr” ne pointe 
ni sur la mémoire buffer ni sur la 
mémoire paramètres. 


* offset = JanusMemToOffset 
(ptr)/(D0) 


Si “ptr” pointe sur une zone mémoi- 
re buffer ou paramètres, l'offset du 
début de la mémoire à “ptr” sera 
retourné. C'est cette valeur qui sera 
utilisée par la fonction SetParamOff- 
set( ) si c’est un bloc paramètres. 


* offset = GetParamOffset 
(jintnum)/(D0) 


Cette fonction retourne l'offset para- 
mètres pour l'interruption “jint- 
num”. Par convention, une valeur 
égale à $FFFF signifie qu'aucun bloc 
paramètres n'a été déclaré. 


* oldOffset = SetParamOffset 
(jintnum, offset)/(D0/D1) 


L'offset paramètres pour “jintnum” 
est codée sur les 16 bits de poids 
faible “d'offset”. La valeur retournée 
est l’offset précédent. Le système 


n'interprète pas ce nombre, mais par 
convention, une valeur égale à $FFFF 
signifie qu'aucun bloc paramètres 
n'avait été déclaré précédemment. 


* ptr = GetJanusStart() 


Cette routine retourne la valeur de 
l'adresse de base de la carte JANUS. 


* setupsig = SetupJanusSig 
Gintnum,paramsize,paramtype)/ 
(D0,D1,D2,D3) 


Cette fonction couvre la plupart des 
besoins standard des utilisateurs. Il est 
probable que la majorité des utilisa- 
teurs de carte JANUS n'utilisent prin- 
cipalement que cette fonction ainsi que 
la routine CleanupJanusSig( ). Le but 
principal est de déclarer un gestion- 
naire d'interruption pour gérer nos 
demandes d'interruptions et transfor- 
mer ceci en un signal qui sera envoyé 
à notre tâche. Cette manière de procé- 
der permet d'ignorer toutes les subtili- 
tés relatives à l'écriture d’une routine 
d'interruption. 

En premier lieu, il faut spécifier le 
numéro d'interruption (JINTNUM) 
ainsi que le numéro de signal 
(SIGNUM) qui nous sera renvoyé. 
JINTNUM sera donné via le fichier 
include Service.[hil, de la même 
manière SIGNUM sera donné via 
AllocSignal(-1) qui permet d'allouer 
un signal inutilisé. La manière de 
procéder pour récupérer une inter- 
ruption est déterminée comme suit : 
la demande devra fixer une zone 
paramètres qui sera déclarée par sa 
taille (paramsize) en octets ainsi que 
son type (paramtype) pour pouvoir 
pointer sur elle. 


Il y à une gestion des erreurs lorsque 
tout ceci est mis en oeuvre. Si la 
valeur de SIGNUM est égale à -1 
alors la demande échoue (-1 est 
l'erreur retournée par AllocSignal). 
S'il y a déjà un gestionnaire d’inter- 
ruptions alors la demande échoue. Si 
PARAMSIZE n'est pas égal à 0 et si 
une zone paramètres est déjà décla- 
rée, alors la demande échoue. S'il est 
impossible d'allouer assez de mémoi- 
re alors la demande échoue aussi. 

La demande retourne une valeur 
nulle si elle échoue, et dans le cas 
contraire, il y a retour d'un pointeur 
sur la structure SetupSig. Cette struc- 
ture est définie dans Setupsig.[hi]. 
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* CleanupJanusSig(setsupsig)/(A0) 


Cette routine annule tout ce qui a 
été fait par la routine SetupJanusSig. 


* JanusUnlock(ptr)/(A0) 
Routine libérant un verrouillage Janus. 


* JBCopy 
(source, destination, lenght)/(A0,A1,D0) 


Cette routine est destinée à la copie 
de zone mémoire. 


LES FICHIERS INCLUDES 
* janus.lhi] 


Il] permet de s’'interfacer avec la 
Janus.library. Les définitions pré- 
sentes au sein de ce fichier sont spé- 
cifiques à l'Amiga, l'aspect le plus 
pratique étant les définitions d’allo- 
cation mémoire de différents types. 


* janusreg.lhi] 


Il contient les constantes nécessaires à 
la gestion du hardware. La plupart 
des utilisateurs n’en ont aucun besoin. 


* janusvar.[hil] 


Il contient les structures de données 
partagées entre l'Amiga et le PC. 


* i86bloock.i 


C’est un bloc de commandes pour 
appeler directement les interrup- 
tions PC, et gérer le disque dur. 


* services.[hi] 


Il contient les constantes relatives 
aux numéros d'interruptions. Ces 
valeurs correspondent aux para- 
mètres JINTNUM. 


* setupsig.[hil 


Il contient les structures nécessaires 
aux appels à SetupJanusSig(). 


Voilà, j'espère que ces quelques 
informations auront rendu le sujet 
un peu moins nébuleux quant à 
l'interface logicielle entre ces deux 
mondes. Dans le prochain numéro, 
nous pousserons plus avant notre 
exploration... 











INTERFACER AREXX 
AVEC LE GFA 


Après l'interfaçage du langage C avec ARexx, passons au GfA- 
Basic. Aussi bizarrement que cela puisse paraître, une interface 
ARexx en GFA-Basic peut être réalisée plus facilement qu'en 
langage C. Cela se comprend si l’on admet que le C gère les 
chaînes de caractère plus lourdement que le GFA-Basic. Par 
exemple, l'avantage que possède le GFA-Basic de pouvoir 
tester les quatre premières lettres d'une chaîne permet la 
réalisation d’une structure de choix extrêmement souple. 


Le fonctionnement général d’un 
programme interfacé ARexx est rela- 
tivement simple à comprendre. La 
communication entre ARexx et le 
programme se fait par le biais d’un 
port de messages spécialement créé 
par le programme dans ce but. Une 
bonne convention consiste à donner 
comme nom à ce port celui de 
l'application, suivi de .rexx pour pré- 
ciser qu'il s’agit d’un port destiné à 
ARexx. Une fois le port créé, il ne 
reste plus qu'à envoyer et recevoir 
des messages. 


Pour cela, on utilise les deux fonctions 
GetMsg() et ReplyMsg0 qui servent 
respectivement à recevoir des mes- 
sages et à répondre aux messages 
reçus. Il est très important de 
répondre à un message car la tâche 
ARexx qui a envoyé le message atten- 
dra toujours l’accusé de réception 


avant de poursuivre et éventuelle- 


ment envoyer d’autres messages. On 
doit par ailleurs toujours traiter le 
message avant d'utiliser la fonction 
ReplyMsg0 car le message n'est notre 
propriété (c'est-à-dire modifiable) 
qu'entre le moment où on l’a reçu 
avec GetMsg0 et celui où on l'a ren- 
voyé avec ReplyMsg(). 


En général, on se contente avec 
ARexx d'envoyer une seule chaîne 
de caractères dont l'adresse se trouve 
à l’offset 40 de la structure RexxMssg. 
Celle-ci est récupérée par le GFA- 
Basic avec la fonction CHAR!{} qui 
convertit une chaîne au format C en 
une chaîne GfA-Basic. Une fois que 
la chaîne est stockée dans une 
variable GfA-Basic, il ne reste plus 
qu'à étudier son contenu et agir en 
conséquence. 


C'est de la manière dont vous aurez 
construit votre programme que va 
dépendre la suite. Les programmes 
les plus faciles à interfacer avec 
ARexx sont ceux qui sont déjà contrô- 
lés par des menus, car il suffira de 
modifier légèrement les structures de 
choix pour que l’interfaçage ARexx 
fonctionne facilement. Certains affir- 
ment qu’un programme, dont les 
structures de contrôle sont suffisam- 
ment bien faites, peut être interfacé 
avec ARexx en moins de deux heures 
(à vos chronomètres !). Disons que ce 
qui risque de vous poser problème, 
c’est la définition des mots-clé recon- 
nus par votre programme. Pour cela, 
il faut suivre quelques règles 
simples : 
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1) Ne pas utiliser de mots-clé recon- 
nus par ARexx. Des mots-clé comme 
say, show ou autres risquent de vous 
causer des ennuis ; 

2) Vos mots-clé devront être compo- 
sés uniquement de lettres et à la 
rigueur de chiffres. Surtout évitez les 
espaces et les opérateurs ARexx 
(comme +, *, etc.) ; 

3) Ils devront être les plus courts pos- 
sible, et si possible être de même lon- 
gueur. Cela vous aidera pendant la 
vérification. Une taille de 4 lettres 
serait idéale pour pouvoir tester 
directement les chaînes avec l'ins- 
truction CASE. 


Le programme suivant vous permet- 
tra de comprendre le fonctionnement 
global d'un interfaçage ARexx. Il n'y 
manque que le traitement des erreurs 
qui n’est pas très compliqué à réali- 
ser. Pour cela, il faut initialiser avec 
une valeur négative le champ 
Result1 (offset 32) avant d'effectuer 
ReplyMsg(0. Cela est un peu 
ennuyeux car on est obligé de tester 
si le mot-clé est valide, d'envoyer 
ReplyMsg0 puis d'appeler la routine 
correspondant au mot-clé. Ce pro- 
gramme étant très paresseux, il ne 
fait rien quand un mot-clé inconnu 
lui arrive. Le programme en C du 
mois précédent était plus courageux 
car il effectuait un véritable traite- 
ment des erreurs. C'est à vous de 
juger... 


Comme prévu, avant de vous livrer 
le programme en GFA-Basic, voici un 
petit script ARexx qui devrait le faire 
fonctionner, puis vous trouverez à la 
suite le listing complet. 


Patrick Solar 





/* Interfaçage ARexx et GFA-Basic */ 
address ‘GFAPort.rexx' 
/* Affiche un rond bleu, encore un ! */ 
/* Donne des informations */ 
/* Affiche l'heure */ 
/* Un carré rouge */ 


/* Fond de l'écran noir */ 
/* Triangle vert */ 


/* Fond de l'écran blanc */ 
/* Demande au programme de s'interrompre */ 





Et maintenant le programme en GFA-Basic : 





initialisations 


PROCEDURE traitement 
DO 
ON MENU 
rexxmsg*#=GetMsg(rexxport$) 
IF rexxmsg$>0 
arg$=CHAR{LONG{rexxmsg%+40}} 
LONG{rexxmsg%+32} = 0 ! pas d'erreur 
“ReplyMsg(rexxmsg$) 
SELECT arg$ 
CASE “time” 
time 
CASE “rond' 
rondbleu 
CASE “info” 
info 
CASE “noir” 
fondnoir 
CASE ‘fin” 
sortie 
DEFAULT 
IF arg$="carre" 
carrerouge 
ELSE IF arg$="triangle” 
trivert 
ELSE IF arg$="blanc” 
fondblanc 
ENDIF 
ENDSELECT 


LOOP 

RETURN 

PROCEDURE traitemenu 
SELECT MENU (0) 


rondbleu 
“CASE 7 
carrerouge 
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CASE 8 
trivert 
CASE 11 
fondblanc 
CASE 12 
fondnoir 
ENDSELECT 
RETURN 
PROCEDURE initialisations 
REM KAKEKKRRRÉRRRRRRAKK Initialisations ARexx 
‘ création du port — allocation de la chaîne 
portname$="GFAPort.rexx" 
portname$=AllocMem(LEN (portname$) +1, &H10001) 
IF portname$=0 
ALERT 0,"Mémoire insuffisante”,0,"Ok",a% 
sortie 
ENDIF 
CHAR{portname*}=portnames 
\ recherche si le port existe déjà 
rexxportt=FindPort (portname*) 
IF rexxport$<>0 
ALERT 0,"Le port existe déjà|Dois-je le 
supprimer”, 2,"Ok|Non”,a% 
IF a$=1 
“DeletePort (rexxport#) 
ELSE 
sortie 
ENDIF 


ENDIF 
\ création du port de messages 
rexxport#=CreatePort (portnames, Ü) 


IF rexxporti=0 | vérification 
sortie 
ENDIF 
REM ***##*#%%** Initialisation écran et fenêtre 
OPENS 1,0,0,640,256,3, £H8000 
OPENW #0,0,11, 640,245, &H408,&H1800 
REM *X**X*XKX*X*4kkk*X Initialisation des couleurs 
SETCOLOR 0,0 { Noir 
SETCOLOR 1,&HFFF | Blanc 
SETCOLOR 2,&HF00 ! Rouge 
SETCOLOR 3,6HF0 ! Vert 
SETCOLOR 4,6HF ! Bleu 
SETCOLOR 5,6H888 ! Gris 
REM *##XXXX4XKX4KXX4X Initialisation des menus 
DIM entree (20) 
1%=0 
DO 
READ entree$ (i$) 
EXIT IF entree${i$%)="*" 
INC i$ 
LOOP 
entrees (1$)="" 
entree$ (i$+1)="" 
MENU entree () 
MENU 13,64 
ON MENU GOSUB traitemenu 
REM ****44 Initialisation des nombres aléatoires 
RANDOMIZE TIMER 
RETURN 
PROCEDURE sortie 
IF rexxport+<>0 
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Le Livre de Deluxe Paint IL 
Editions Micro-Application 


Doue Paint est un logiciel : intéres- 


_sant à plusieurs titres. On pourrait 


évoquer le côté historique du logi- 
ciel pionnier avec lequel l'Amiga a 


pu se faire un nom dans le monde 
du graphisme. On pourrait égale- 
ment parler du célèbre format IFF 


que ce logiciel a introduit. Intéres- 
sante également est la version PC du 


logiciel qui à ouvert l'échange 


d'images entre les PC et l’ ‘Amiga. 
Mais Deluxe Paint est aussi un pro- 
gramme qui fait partie de la pano- 
plie du graphiste sur FRS 


Le livre de Deluxe Paint IT s ‘adresse 

à ceux qui seraient plus intéressés 
par l'aspect pratique de ce logiciel 
que par son histoire. Sa première 


partie donne un aperçu des fonc- 
tions de base du logiciel. Celles-ci 
sont expliquées de façon plus péda- 
gogique qu'exhaustive. On peut 
donc affirmer sans se tromper que 
cette partie du livre est destinée aux 


débutants désireux de manier sans 


trop de risques le logiciel. Il est vrai 
que Deluxe Paint est un logiciel à à 
“cachettes”, où des fonctions sont 
dissimulées dans chaque recoin et. 
que certains détails auraient pu 
mener les auteurs du livre dans des 
explications assez ardues. Quelques 
informations importantes manquent 
toutefois, par exemple le rôle du 
bouton droit de la souris dans cer- 


taines parties du AE 


La seconde partie a reçu pour titre 


“Techniques et outils pour la cou- 


leur”. Les aspects les plus intéres- 


sants du logiciels y sont abordés, 


comme les pochoirs, la perspective 


et l’utilisation des brosses. La partie 
animation occupe la troisième partie 
du livre et les auteurs donnent des 
conseils sur la manière de créer une 
animation avec le logiciel, en propo- 


sant également une méthode 


de l'artiste” 


HALLE 
DE 


DELUXE 
PAINT Il 





suivre lors ue l'on veut créer une 
animation, à 
pratique relativement aisé à repro- 
duire. Un chapitre contient quelques 
trucs et astuces, toujours intéres- 


sants à connaître et pour finir les 
auteurs abordent “Le point de vue 
où sont donnés 
quelques conseils aux débutants en 
arts graphiques. Ceux-ci sont parfois 
étranges (comme “en mettre moins 


pour en retirer davantage"), mais 
peuvent aussi se révéler utiles. Des 
annexes complètent le livre en décri- 
vant les menus et les raccourcis cla- 
vier, le programme Play et la version 


PC du logiciel. 


Ce ie traite de manière correcte 


Deluxe Paint mais aurait gagné à 
avoir une vision un peu plus large 
sur la question. Deluxe Paint est un 
programme € essentiellement destiné 
aux graphistes professionnels et 
ceux-ci n'auront que peu d'ensei- 
gnements à en tirer. Il aurait été 
aussi bon de mentionner l'utilitaire 
CONVERT de la version PC qui a un 
grand rôle dans la conversion 
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à l’aide d’un exemple 


d'images entre PC et Amiga. Par 
contre, ceux que le graphisme inté- 


resse mais qui éprouvent encore des 
difficultés dans l’utilisation du logi- 


ciel pourront être assistés dans leurs 
premiers pas grâce à ce manuel. 


Le Livre des Imprimantes 


Editions Micro-Application 


On dit souvent que les imprimantes 
sont les bêtes noires de l’informa- 
tique. Il est vrai que l'acquisition 


d'une nouvelle imprimante laisse 
généralement présager de 1à3 
semaines de galères où se produi- 
ront la consommation de plusieurs 
kilos de papiers, le refus catégorique 
d'imprimer des accents, la sortie de 
pages blanches, des effets sympto- 
matiques de décalage de marges, et 
j'en oublie. D'ailleurs, une fois que 
l'imprimante fonctionne, on en 
oublie jusqu'à son existence. 


Pour s'en sortir, il vaut mieux possé- 
der de bons logiciels de configuration 


(le programme Preferences suffit 


généralement) et une bonne docu- 
_mentation sur le spiee MAG A PRE 








cation a décidé de pallier en partie le 
manque de documentation en ce 
domaine avec la publication de ce 
livre. Je dis en partie car il s'adresse 
essentiellement aux possesseurs 
d'imprimantes compatibles Epson, 
soit la grande majorité des utilisa- 
teurs d'imprimantes. L'auteur du 
livre, Ralf Ockenfelds, fait la démons- 
tration d’une grande maîtrise en ce 
qui concerne ces imprimantes et les 
explications qu'il donne sont tout à 
fait satisfaisantes. Par contre, il aurait 
été souhaitable qu'il fasse preuve de 
la même connaissance de l’Amiga, ce 
qui n’est malheureusement pas le 
cas, et je le prouve ! 


Les impressions sur Amiga sont 
gérées au plus bas niveau par deux 
programmes appelés parallel.device 
(appelé avec PAR:) et serial.device 
(SER:) qui gèrent respectivement les 
sorties série et parallèle. En remon- 
tant un échelon, on trouve le prin- 
ter.device (PRT:) qui utilise un de ces 
deux programmes plus un autre qui 
est un driver d'imprimante que l'on 


Suite de la page 193 


«DeletePort (rexxport$) 
ENDIF 
IF portname<>0 
-FreeMem(portname*, LEN (portname$) +1) 
ENDIF 
CLOSEN #0 
CLOSES 1 
END 
RETURN 
PROCEDURE time 
TEXT RANDOM(500) , RANDOM (150) , TIMES 
RETURN 
PROCEDURE info 


TEXT RANDOM (500), RANDOM(150), ‘Menus + ARexx en GFA” 


RETURN 
PROCEDURE rondbleu 
COLOR 4 


PCIRCLE RANDOM(300) , RANDOM(100) , RANDOM(75) 


RETURN 

PROCEDURE carrerouge 
COLOR 2 
x=RANDOM (300) 
y=RANDOM (100) 
c=RANDOM (80) 
PBOX x,y,xtc*2,ytc 

RETURN 

PROCEDURE trivert 


trouve dans le répertoire DEVS:prin- 
ters. Dans Le livre des Imprimantes, 
l’auteur indique aux utilisateurs 
d'imprimantes Epson les codes de 
contrôles qu'ils doivent envoyer à 
leur imprimante pour changer sa 
configuration. Il explique très claire- 
ment que ceux-ci doivent utiliser les 
sorties SER: et PAR: pour que ces 
codes fonctionnent, mais sans en 
donner la véritable explication. Le 
fait est que sur Amiga les codes de 
contrôles ont été standardisés grâce à 
la sortie PRT: qui effectue une 
conversion d’après le driver d'impri- 
mante sélectionné. C'est un point 
essentiel, car le passage en caractères 
gras s'effectuera avec le même code 
de contrôle, et cela quelle que soit 
l'imprimante utilisée (HP-Laser]Jet, 
Epson ou Neo). Il était donc inutile 
de se limiter aux imprimantes Epson 
et un ouvrage plus général aurait été 
le bienvenu. Il reste que l'auteur du 
livre a véritablement su détailler en 
profondeur le domaine auquel il 
s'était attaché, ce qui donne une véri- 
table utilité à ce livre. 


COLOR 3 
X1=RANDOM(200) 
x2=x1+RANDOM (200) 
x3=x1+RANDOM (200) 
y1i=RANDOM (100) 
y2=yl+RANDOM (50) 
y3=y2+RANDOM (50) 
LINE x1,yl,x2,y2 
LINE x2,y2,x3,y3 
LINE x1,y1,x3,y3 

RETURN 

PROCEDURE fondblanc 
SETCOLOR 0,&HFFF 
SETCOLOR 1,0 


RETURN 


PROCEDURE fondnoir 
SETCOLOR 0,0 
SETCOLOR 1,&HFFF 

RETURN 


Amiga 


Par ailleurs, le programme Prefe- 
rences est relativement bien détaillé, 
et on trouvera des schémas pour 
réaliser son câble d'imprimante, la 
description des fameux switches, 
l'explication des différents types 
d'imprimantes matricielles, ainsi 
que des solutions aux divers pro- 
blèmes que peut poser une impri- 
mante (avec parfois avec une note 
d'humour, exemple : “Problème 
numéro 10: l’imprimante couine lors 
de la mise en marche”...). Une dis- 
quette contient les programmes 
d'exemple du livre.’ 


Pour conclure, ce livre aurait gagné 
à couvrir un domaine plus vaste 
mais apporte toutefois des informa- 
tions et des solutions tout à fait 
dignes d'intérêt. Un programmeur 
ne devra pas se baser uniquement 
sur les informations contenues dans 
ce livre mais les possesseurs 
d'imprimantes compatibles Epson 
auront avantage à le consulter. 


Patrick Solar 


DATA Projet, Heure, Information, Quitter, 
DATA Objets, Rond Bleu, Carré Rouge, Triangle Vert, 
DATA Fonds, Blanc, Noir, Bleu Cerise, 


DATA * 
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Amorce 


Le Kickstart constitue llamorce «&e l'omiinateur. C'est lui qui 
établit le noyau du système d'exploitation en mémoire (RAM) 
pour assurer le déroulement de l'éxploitation. Sur l'Amiga 
500 ou 2000, le Kickstart esi intisrna (ROM) «et invisiblà pour 
l'utilisateur. Îl est en fanctiom dès le démarrage. Sur l'Amiga 
1000, il se présente sous la fomme d'une disquette qui doit 
être insérée dans le lecteur DFŒ au moment du démarrage. 
Après avoir amorcé, le noyau du système c'exploitation est en 
fonction. 

Parmi les fonctions du Kicksiari mous rmetreuvons l'information 
nécessaire pour l'identification dis la dilsquetts da lancement, 
porteuse de la configuration de bäse. Si la disquette 
introduite après l'amorce m'est pas porteuse de cette 
configuration, le système d'exploitation continuera de 
réclamer une disquette de lancement porteuse de: cette 
configuration. Le Kickstart aw départ passèide certains 
éléments indispensables au lbon fÿnctiommement de la 
machine. Parmi les plus visibles, nous reliouvons des 
couleurs de base pour l'écran, un poimteur, un clavier USAO, 
la fonte topaz 8, etc. 

Après cette phase initiale, l'ordinateur réclame l'Atalier-Wibrkbemch. 


Lancement 


Après avoir chargé lb noyau du système d'exploitation 
(Kickstart), l'apparition du dessin Warkench invite l'utilisateur 
à introduire dans la lecteur DFN: la disquetts de 
l'Atelier-Workbench ou toute autre disquette d# lancement 
porteuse de la configuration de base. [Le système dB l'Amiga 
identifie la disquette de lancement comme porteuse ces 
fichiers parfois nécessaires aux programmes utilisés 
subséquemment. Par conséquent, loutes les fais qu'un 
programme a besoin d'un fichier bour ehfectuer une &pération, 
il va lire sur la disquette de lancæment lbour trouver ce fichier. 
Si la disquette de lancement 2sti absente, une boite de 
communication apparaît demandani d'introquirs ladite 
disquette dans un des lecteurs à disqueite. 


Lors du lancement, les différents réperibires logiques effectifs 
automatiquement sont: 









a 4 ÉE ges 
[eu T4 
\L U L 


165 


Voici un nouveau chapitre de ce livre d'Yves 
BRAZEAU et Daniel GARAN édité par TITUS. 


-le répertoire de commandes C: 

-le répertoire des sous-programmes relatifs aux périphériques L: 

-le répertoire des fichiers de commandes 

-le répertoire des sous-programmes divers LIBS: 

-le répertoire des périphériques DEVS: 

-le répertoire des fontes de caractères FONTS: 
Pour connaître les affectations, on utilise la commande 
ASSIGN en mode par commandes (voir commande ASSIGN). 
Après avoir introduit la disquette de lancement, on peut 
modifier plusieurs des éléments prédéfinis. Le "Preferences" 
offre une façon de modifier, entre autres, les couleurs de 
l'écran et le pointeur. Lorsqu'on sauvegarde pour la première 
fois certaines options du "Preferences", un nouveau fichier est 
créé "System-Configuration" dans le sous-répertoire 
Devs/clipboars. Par la suite, ce fichier est mis à jour chaque 
fois qu'on sauvegarde à nouveau. Ce sera donc ce nouveau 
fichier qui prendra la relève aussitôt que cette disquette sera 
introduite comme disquette de lancement. 


Comprendre 


Le système utilise ce qui lui a été assigné au départ pour 
travailler. Sion demande une nouvelle fonte de caractères, si 
on veut imprimer, etc. le système doit rechercher 
l'information pour effectuer l'opération sur la disquette de 
lancement. Il est possible de modifier les affectations de 
départ en se servant de la commande ASSIGN. 


Séquence de lancement 


Le système Kickstart est responsable de charger le noyau du 
système d'exploitation en mémoire centrale afin de permettre 
l'exploitation de programmes de traitement. L'Atelier-Workbench 
est une disquette de lancement, mals toute disquette porteuse 
de la configuration de base peut assumer la même fonction. 


Après avoir introduit la disquette Atelier-Workbench (ou une 
autre disquette) dans le lecteur DFO0:, les directives 
commencent par faire succéder plusieurs messages à l'écran 
pour finalement s'inter:ompre et laisser apparaître une petite 
icône représentant la disquette de lancement. Il esi 
maintenant possible d'utiliser la souris. 


Que s'est-il passé entre l'insertion de 
l'apparition de son icône à l'écran? 
déroulement en détail. 


Immédiatement après avoir introduit la disquette, le noyau du 
système d'exploitation véritie s'il s’agit d'une disquette 
porteuse de la configuration de base (voir commande 
INSTALL) et ensuite le lecteur à disquette reçoit l'ordre de 
rechercher sur cette disquette le fichier de la séquence de 
lancement. Ce fichier, responsable des directives initiales, 
est situé dans le répertoire S et porte le nom de 
"Startup-sequence”. A noter qu'il ne faut jamais changer le 
nom de ce fichier. 


la disquette et 
Examinons le 
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La séquence de lancement (Startup-sequence) 


Ce fichier est un fichier de textes constitué d'une liste 
séquentielle de commandes que l'ordinateur doit exécuter 
pour devenir fonctionnel, autant avec le mode Intuition 
qu'avec le mode par commandes. 


Voici la liste des commandes de la séquence de lancement 
"Startup-sequence" de l'Atelier-Workbench 1.3. Elle-môme, 
lors de son exécution, fait appel au fichier "Startupll" que 
nous listons aussl. 


Le fichier de commandes "Startup-sequence" 


Addbuffers df0: 10 

c:SetPatch >NIL: ;patch system functions 

cd c: 

echo "A500/A2000 Workbench disk. Release 1.3 version 34.20*N* 

Sys:System/FastMemFirst move C00000 memory to last in list 

BindDrivers 

SetClock load :load system time from real time clock (A1000 owners 
:should replace the SetClock load with Date 

FF >NIL: -0 ;speod up Text 

resident CLI L'Shell-Seg SYSTEM pure add ;activate Shell 

resident c:Execute pure 

mount newcon: 


failat 11 
run execute s:Startupil :This lets resident be used for rest of script 
wait >NIL: 5 mins :wait for Startupll to complete (will signal when done) 


SYS:System/SetMap usa ;Activate the (}/* on keypad 

path ram: c: sys:utilities sys:system s: sys:prefs add ;set path for Workbench 
LoadWB delay :wait for inhibit to end before continuing 

endeli >NIL: 


Le fichler de commandes “Startupil" 


resident c:Resident pure 

resident c:List pure ;pre-toad LIST and CD 

resident c:CD pure 

resident c:Mount pure ithe next 3 are floaded for speed during startup 
resident c:Assign pure 

resident c:Makedir pure 

imake IF, ENDIF, ELSE, SKIP, ENDSKIP, and ECHO resident if 
you use scripts much, and can afford the ram. 

‘also make Failat, WAÏT, and ENDCLI resident if you use IconX a lot 
makedir ram:t 

assign T: ramit ;set up T: directory for scripts 

makedir ram:env ;set up ENV: directory 


assign ENV: ram:env 


makedir ram:clipboards ;set up CLIPS: assign 

assign CLIPS: ram:clipboards 

mount speak: :just mounting doesn't take much ram at all 

mount aux:, 

mount pipe: 

resident Mount remove :if you have enough ram, keep these resident 
resident Assign remove :by removing these lines 

resident Makedir remove 


break 1 C ;signal to other process its ok to finish 


Accès au fichier de la séquence de lancement 


Le fichier de la séquence de lancement est un simple fichier 
de texte, donc accessible à tout éditeur de texte. Dans les 
volumes d'utilisation de l'Amiga, il est suggéré d'utiliser 
l'éditeur ED ou EDIT pour accéder à ce fichier et le modifier. 
Comme ces éditeurs sont peu pratiques et complexes, nous 
conseillons plutôt de se servir d'un bon programme d'édition 
de texte capable de sauvegarder un texte an codes ASCII. 


Après avoir activé un de ces programmes, on lui indique 
qu'on désire le fichier “Startup-sequence” situé dans le 
répertoire S de la disquette Atelier-Workbench: 


df0:S/Startup-sequence 


Amiga 





Compréhension des fichiers de la séquence de 
lancement - 


"Startup-sequence" 


Voici ce que signifie chacune des lignes de ce fichier de 
commandes: 


Addbuffers df0:10 


Alloue des tampons Supplémentaires de mémoire au lecteur 
DF0:, ce qui permet d'améliorer le temps d'accès aux fichiers 
du disque. 

C:SetPatch >NIL: ;patch system functions 


Met en route la commande SETPATCH située dans le 
répertoire C. Cette commande a pour fonction de corriger 
certaines erreurs connues des Kickstart 1.2 et 1.3. Le ";" sert 
à inscrire, à titre d'information, la note “patch system 
function". 


cd c: 


La commande CD change le répertoire courant qui devient le 
répertoire C. 


Echo "A500/A2000 Workbench disk. Release 1.3 version 34.20°N" 


La commande ECHO donne l'ordre à l'ordinateur d'afficher à 
l'écran le message écrit entre guillemets. 


Sys:System/FastMemFirst move C00000 memory lo Iaat in Ilst 


Active le programme FastMemFirst situé dans le répertoire 
“System”. Ce programme indique au système d'utiliser 
d’abord la mémoire “Fast” (voir Mémoire, processeur et 
coprocesseur). Le ";" sert à ajouter la note “move C00000 
memory to last in list". 

Note: Sys: signifie disquette de lancement. 


BindDrivers 


Provoque l'installation en mémoire des gestionnaires de 
périphériques non standard (disque rigide) et les rend ainsi 
accessibles au système. É 


SetClock LOAD ;load system time from real time clock (A1000 owners 
sshould replace the SetClock load with Date) 


La commande SETCLOCK avec l'argument LOAD va chercher 
l'heure de l'horloge de la carte de mémoire des Amiga 500 et 
2000 pour ajuster l'horloge interne de l'Amiga. Les ";" servent 
à ajouter la note avisant le propriétaire d'un Amiga 1000 de 
remplacer dans ce fichier la commande SETCLOCK par la 
commande DATE ou par toute commande appropriée pour 
l'horloge dont il dispose, le cas échéant. 


FF >NIL:-0 ;speed up text 


La commande FF (Fast Fonts) met en route un programme qui 
a pour rôle d'accélérer la vitesse d'affichage des textes à 
l'écran. Le “;" sert à inscrire la note “speed up text". 


resident CLI L:Shell-Seg SYSTEM pure add ;activate Shell 


lci la commande RESIDENT rend le "Shell-seg" (situé dans le 
répertoire L:) résident en l'ajoutant au système (SYSTEM) 
avec l'argument PURE. Cela signifie que dorénavant le 
"Shell-Seg" sera résident dans le système et sera toujours 
prêt à être exécuté sans avoir à être chargé avant. Le “;" sert 
à ajouter la note “activate Shell". 


resident c:Executa pure 


La commande EXECUTE située dans le répertoire C est 
rendue résidente avec l'argument PURE. 
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mount newcon: 


La commande MOUNT rend le périphérique virtuel NEWCON: 
accessible au système d'exploitation et donc utilisable par le 
SHELL. 


; Le “;" permet de sauter une ligne pour aérer le texte. 
fallat 11 


La commande FAILAT change le niveau de tolérance de 
l'exécution du fichier de commandes. loi il est fixé à 11. 


run execute s:Startupil ;Thls lets resident be used for rest of script 


La commande RUN crée une seconde täche qui exécute la 
commande donnée en paramètre. La commande EXECUTE 
appelle le fichier de commandes, “Startupll" situé dans le 
répertoire S, pour en déclencher l'exécution. Le ";" permet 
d'ajouter la note qui le suit. 


wait >NIL: 5 mins ;wait for Startupll to complete (will signal when done) 


La commande WAIT demande d'attendre 5 minutes avant de 
poursuivre l'exécution du fichier “Startup-sequence”. Cela 
laisse le temps au fichier de commandes "Startupll" (voir plus 
loin) de s'exécuter. A noter que cette opération ne prend pas 
5 minutes et que le fichier “Startupll" possède sur sa dernière 
ligne la commande BREAK qui interrompt la commande WAIT, 
ce qui relance l'exécution du fichier de commandes 
“Startup-sequence” aussitôt que celle du fichier "Startupil" est 
achevée. 


i Le ";" permet de sauter une ligne pour aérer le texte. 
SYS:Systom/SetMap usa ;Activate the ()/" on keypad 


Demande au système d'utiliser le programme "SetMap" situé 
dans le répertoire “System” pour activer le traducteur des 
touches “usai”. Ce dernier contient la définition pour les 
touches de fonctions mathématiques des Amiga 500 et 2000. 
Le clavier de l'Amiga 1000 est différent, il est donc préférable 
d'utiliser un autre traducteur des touches. A noter que, si on 
désire utiliser un autre traducteur, il suffit de remplacer 
"USA1" par le traducteur de son choix placé au préalable 
dans le sous-répertoire DEVS/Keymap. 


path ram: c: sys:utilities sys:system s: ays:prefs add ;set path for Workbench 


La commande PATH avec l'argument ADD demande d'ajouter 
de nouveaux répertoires dans l'ordre de recherche des 
commandes. lci, sont ajoutés dans l'ordre des recherches, le 
périphérique RAM:, les répertoires C, utilities, system, $, 
prets. 


LoadWB delay 


La commande LOADWB démarre l'Atelier-Workbench et 
l'argument DELAY demande à la commande d'attendre 3 
secondes avant de se terminer. 


endell >Nil: 


La dernière ligne contient la suite d'instructions endcli > Nil:. 
La commande ENDCLI donne l'ordre à l'ordinateur de fermer 
le CLI en fonction depuis le départ et de le diriger (> est un 
signe de direction) vers un périphérique fictif (Nil:). 
Autrement dit, cela signifie de fermer l'écran actif. Cet écran 
disparu, on a maintenant accès à l'écran créé par la 
commande LOADWB permettant d'utiliser la souris pour 
travailler en mode Intuition. 


 Startuplil 


Une partie de la séquence de lancement a été déplacée dans 
un second fichier de commandes appelé “Startupll" de façon à 
ce que l'exécution de la séquence de lancement 
(Startup-sequence) soit accélérée par les commandes 
rendues résidentes. Ce fichier est exécuté après que le 
“Shell-Seg" a été rendu résident. 


Voici ce que signifie chacune des lignes de ce fichier de 
commandes: 


resident c:Resident pure 

resident c:List pure ;pre-load LIST and CD 

resident c:CD pure 

resident c:Mount pure ithe next 3 are loaded for speed during startup 
resident c:Assign pure 

resident c:Makedir pure 

:make IF, ENDIF, ELSE, SKIP, ENDSKIP, and ECHO resident If 

;you use scripts much, and can afford the ram. 

;als0 make Fallat, WAÏT, and ENDCLI resident If you use iconX a lot 


A l'aide de la commande RESIDENT et de l'argument PURE 
les six premières lignes de ce fichier demandent de rendre 
résidentes les commandes RESIDENT, LIST, CD, MOUNT, 
ASSIGN, MAKEDIR. Les commandes rendues résidentes 
seront exécutées presque instantanément parce qu'elles 
résident en mémoire. Cela évite, par la suite, de nombreuses 
lectures sur disque et accélère du même coup l'exécution du 
fichier.de commandes. Le ";" sert à insérer des notes pour 
aider l'utilisateur qui consulte ce fichier. 


makedir ram:t 


La commande MAKEDIR sert à créer dans le périphérique 
RAM: un répertoire T: qui servira d'espace de rangement 
temporaire lors de l'utilisation de certains programmes et pour 
les fichiers de commandes (éditeurs, compilateurs). 


assign T: ram:t ;set up T: directory for scripts 


La commande ASSIGN indique au système de modifier le lien 
avec le périphérique T: et de remplacer cette entité par le T 
qui vient d'être créé en RAM:. Le ";" sert à écrire la note "Set 
up T:directory for scripts”. 


makedir rem:env ;set up ENV: directory 


La commande MAKEDIR sert à créer dans le périphérique 
RAM: un répertoire ENV: qui servira à stocker les variables 
locales créées par la commande SETENV. Le ";" sert à 
inscrire la note "Set up ENV: directory". 


assign ENV: ram:env 


La commande ASSIGN demande de créer un lien entre le 
répertoire ENV: et le ENV: qui vient d'être créé en RAM: 
Ainsi le système saura qu'il faut stocker les variables dans le 
RAM:env. 


makedir ram:clipboards ;set up CLIPS: assign 


La commande MAKEDIR sert à créer dans le RAM: un 
répertoire CLIPBOARDS. Le ";" sert à écrire la note “Set up 
CLIPS: assign. 


assign CLIPS: ram:cllpbosrds 


La commande ASSIGN crée un répertoire CLIPS: et l'affecte 
au répertoire CLIPBOARDS créé en RAM: CLIPS: sert à 
stocker dans l'espace mémoire ce qui est copié ou coupé 
(copy, cut) , plutôt que de l'emmagasiner sur disquette. Cela 
accélère ces opérations. 
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mount speak: ;Just mounting doesn't take much ram at all 
mount aux: 


mount pipe: ; 

Ces trois lignes de commandes utilisent la commande MOUNT 
pour rendre accessibles au système les trois périphériques 
Virtuels SPEAK:, AUX:, PIPES. La note qui suit le ";" indique 
que l'installation d'un périphérique avec la commande MOUNT 
nécessite peu d'espace mémoire. 


resident Mount remove ;if you have enough ram, keep these resident 
resident Assign remove ;by removing these lines 
resident Makedir remove 


La commande RESIDENT, avec l'argument REMOVE utilisé 
Sur ces trois lignes de commmandes, a pour fonction de 
retirer de la liste des commandes résidentes les commandes 
MOUNT, ASSIGN et MAKEDIR. La note qui suit le ":" indique 
que, si l'espace mémoire est suffisant, on a avantage a 
conserver ces commandes résidentes, et, pour ce faire, on 
élimine ces trois lignes. 


Le “;" permet de sauter une ligne pour aérer le texte. 
break 1 C ;signal to other process [is ok to finish 


La commande BREAK a pour fonction d'interrompre la 
commande WAIT 5 minutes du fichier de commandes 
"Startup-sequence" de la tâche 1 et de permettre ainsi la 
poursuite du déroulement du premier fichier de commandes. 


La séquence de lancement, sa flexibilité et ses 
avantages 


L'examen des fichiers de commandes permet de comprendre 
que l'un des rôles de la séquence de lancement est de 
permettre à l'utilisateur de programmer des opérations 
répétitives et ainsi éviter d'avoir à répéter une série 
d'opérations fastidieuses toutes les fois qu'il utilise son 
ordinateur. 


Exemples: 


Pour charger automatiquement le traducteur des touches de 
son choix, on n'a qu'à inclure, dans la séquence de 
lancement, la ligne d'instructions suivante: 


system/SetMap (nom-du-clavier) 


Il est possible que cette ligne existe déjà. Dans un tel cas, il 
suffit de changer le nom du traducteur. Cela implique que le 
sous-répertoire Devs/Keymap doit contenir ledit clavier. A 
noter que Commodore a placé différents traducteurs sur la 
disquette Extras 1.3. Il peut donc être nécessaire de déplacer 
le traducteur désiré de la disquette Extras 1.3 dans le 
sous-répertoire Devs/keymap de la disquette Atelier-Workbench. 


Si on veut que soit créée une icône de disquette RAM:, on 
ajoute la commande suivante: 


DIR ram: 


Si on veut que soient affichés des messages lors du 
lancement, on utilise la commande ECHO et, entre guillemets, 
on insère le message. 


Si on désire qu'un détecteur de virus, du genre VirusX qui se 
trouve sur l'une des disquettes Outils, prévienne 
automatiquement lorsqu'une disquette suspecte est introduite 
dans un des lecteurs à disquette, on copie le programme 


Amiga 


VirusX dans le répertoire courant et on ajoute la ligne 
d'instruction suivante: 


VirusX 


ATTENTION! Dans la séquence de lancement de 
l'Atelier-Workbench 1.3, cette ligne d'instruction doit précéder 
la commande CD c: à moins d'avoir transféré le programme 
VirusX dans le répertoire c:. 


Si on veut que l'écran soit d'une autre couleur lors du 
lancement, on indique ses préférences par des commandes 
insérées dans les lignes d'instruction, et le tour est joué. 


Amorce ultra-rapide 


La séquence de lancement la plus rapide et aussi la plus 
Simple consiste à créer une séquence contenant simplement 
un mot, soit celui du fichier qu'on désire utiliser. Par 
exemple, pour lancer immédiatement le programme 
"Textcraft" situé sur la disquette de lancement, il suffit 
simplement d'écrire le mot “Textcraft" dans la séquence de 
lancement. Rapidement l'ordinateur recherchera et lancera 
ce programme. C'est intéressant, mais attention, si on quitte 
le programme, on se retrouve devant un écran presque vide 
présentant un signal de sollicitation, car le programme 
"LoadWB" n'a pas été chargé lors du lancement. Ce signal 
invite à utiliser le mode par commandes. 


Pour avoir accès au mode intuition, il suffit de taper la 
commande LOADWB, de faire RETOUR, puis de taper la 
commande ENDCLI et faire RETOUR. 


Cette même procédure s'applique lorsqu'on désire revenir au 
mode intuition après avoir court-circuité la séquence de 
lancement (cela se fait en appuyant simultanément sur les 
touches CTRL et D au moment voulu). 


Amorce lente 


Il va de soi qu'une séquence de lancement comportant des 
commandes complexes s'exécute avec plus de lenteur, mais 
elle a l'avantage de créer le cadre de travail que désire 
l'utilisateur. 


Comprendre 


L'une des premières choses que fait l'Amiga quand on 
introduit la disquette Atelier-Workbench est d'aller lire la 
séquence de lancement (Startup-sequence). 


La séquence de lancement est simplement une liste ordonnée 
de commandes à exécuter par l'ordinateur. L'exécution de 
ces commandes est soumise à l'ordre des instructions 
contenues dans un texte écrit en ASCII. Il s'agit d'ordonner 
une suite de commandes en utilisant un langage de 
programmation simple mais puissant. Les commandes 
contenues dans la séquence de lancement sont un mélange 
de commandes provenant du répertoire C et de tout autre 
répertoire défini explicitement. 


La séquence de lancement permet à l'utilisateur de 
programmer le lancement de l'appareil selon ses besoins. 
Cela permet, entre autres, le lancement de programmes, le 
transfert de programmes et de commandes les plus usuelles 
de l'AmigaDos dans le disque virtuel RAM:, le RAD: ou le 
VD0:, etc. Cela permet également de rendre des commandes 
résidentes. Le fichier de la séquence de lancement doit faire 
partie du répertoire S:. 
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LES TURMITES (ED) 


Nous attaquons cette fois la gestion des affichages, les initiali- 
sations et le scrolling. Insistons sur le fait que les deux précé- 
dents articles (ST Mag 40 et 41) sont indispensables pour la 
bonne marche de la programmation. D'une façon générale, le 
manque de place nous a obligés à découper ce “gros” listing 
en plusieurs parties, mais les plus impatients d'entre vous peu- 





MTTIILLILLLLLLELCELELLELEELECEEEEEEESESEES SEE LLELE 


:*  Routine d'affichage des pavés de nourriture * 
2 RH HR HIE RAA HE HR IH IR HI HR HN RICO HOUR 


Paves: 

move.w Xmousew, d0; si on dépasse à droite, alors on corrige 
cmp.w #498,d0 

bmi PasPavesDroite 

move.w #497, d0 


PasPavesDroite: 

move.w d0,d4 

and.w #$0f, d4 ; masque pour le décalage 
move.w Ymousew, dl 

cmp.w #497,d1 ; teste le dépassement en bas 





bmi PasPavesBas 
move.w #496,d1 


PasPavesBas: 
: calcul de l'adresse en mémoire vidéo 
lsl.w #6,d1 ;: 64 octets par ligne (512 pts) 
1sr.w #3,d0 ; on divise X par 8 
and.w #$fffe, d0 ; force une adresse paire 
add.w d1,d0 : XHY 


move.l planl,a0 ; + base de la mémoire 
lea (a0,d0),a0 
move.l plan2,al : 


lea (al,d0),al 


idem plan 2 





move.l #$f££f0000,d0 ; 
1sr.l d4,d0 ; 
not.l d0 . 


dessin du bloc 
avec décalage 
et masque 





move.w Color, dl 

cir.l d2 ; dessin pour le plan 1 
cir.l d3 ; dessin pour le plan 2 
; on modifie d2 et d3 en 

; fonction des bits de la couleur 

btst #0,d1 

beq PasPlan0 

move.l d0,d2 

not.l d2 
PasPlan0: 

btst #1,dl 

beq PasPlanl 

move.l d0,d3 
not.l d3 





vent se procurer la disquette “Amiga” à la Boutique de Pressi- 
mage qui contient, depuis notre premier épisode, l’ensemble 
du programme ainsi que les autres listings Amiga déjà publiés 
pour tout ou partie dans le journal. 


François Fleuret 





PasPlanl: 

move.w #15,d4 
BouclePaves: 

and.l d0, (a0) 

or.l d2, (al) 

add.l #64,a0 

and.l d0, (ai) 

or.l d3, (al) 

add.l #64,al 

dbf d4,BouclePaves 
FinPaves: 

rts 

HLLLELECEEEE EEE; 


: Routine d'affichage d'un ‘Cerveau’ 
ELEC ELLES TE ETES SES SES ES SS ESS ;LS ESS; 
AfficheCerveau: 
movem.l d0-a6,-(sp) 
tst.l AdrSelect ; y a-t-il une turmite sélectionnée ? 
beq PasCerveau ; si non, alors ne rien faire 
move.l SpriteTableau,a0 ; sprite pour afficher le tableau 
lea 4(a0),a0 : adresse des données bitmap du sprite 
move.l AdrSelect, al : adresse de la turmite sélectionnée 
lea Table(al),al ; adresse de son tableau de comportement 
move.w #3,d0 ;: d'états 
Boucle£tat: 
move.w #3,d1 
BoucleCouleur: 
move.b (al)+,d3 
add.b #1,d3 
ext.w d3 
lsl.w #4,d3 
lea TableCarDirections, a2 
lea (a2,d3.w),a2 
move.b (al)}+,d3 
ext.w d3 
lsl.w #4,d3 
lea TableCar£tats,a3 ; table des caractères états (A/B/C/D) 
lea (a3,d3.w),a3 
move.b (al)+,d3 
ext.w d3 
lsl.w #4,d3 
lea TableCarChiffres, ad 
lea (a4,d3.w),a4 
move.w #5,d2 
BoucleCar: 


; blocs de 16 lignes de haut 











: et 4 couleurs par état 


: table des caractères (g/a/d) 





: chiffres (0/1/2/3...) 
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moveq #0,d3 

or.w (a2)+,d3 
or.w (a3)+,d3 
or.w (a4)+,d3 
move.w d3, (a0)+ 
clr.w (a0)+ 

dbf d2,BoucleCar 
add.w #256-24, a0 
dbf di,BoucleCouleur 
add.w #28-256*4, a0 
dbf d0,BoucleEtat 


PasCerveau: 
movem.l (sp)+,d0-a6 
rts 


ClearTableau: 


vide la bitmap du sprite tableau 


movem.l d0/a0,-(sp) 
move.l SpriteTableau, a 
lea 4(a0),a0 

move.w #55,d0 
BoucleClearTableau: 
cir.w 256(a0) 

clr.w 512(a0) 

clr.w 768 (a0) 

clr.w (a0)+ 

dbf d0,BoucleClearTableau 
movem.l (sp)+,d0/a0 
rts 

; KRRRRRKARARERREREREÉX 

; Affichage nombre de 

; turmites à l'écran 
PELLELLZ EL LLCEL LESC 
AfficheNombre: 

move.w nombre, d0 

; table caractères numériques 
lea TableCarChiffres,a4 
; utilise Le reste d’une 
; division par 10 

divu #10, d0 

swap d0 

1sl.w #4, d0 

lea (a4,d0.w),al 

cir.w dû 

swap d0 

divu #10,d0 

swap d0 

1sl.w #4,d0 

lea (a4,d0.w),a2 

cir.w d0 

swap d0 

divu #10,d0 

swap d0 

1sl.w #4,d0 

lea (a4,d0.w),a3 

clr.w d0 

swap d0 

divu #10,d0 

swap d0 

lsl.w #4,d0 

lea (a4,d0.w),a4 











































; adresse datas de ce sprite 
move.l SpriteNombre, a0 

lea 4(a0),a0 ; datas bitmap 
; Caractères de 6 lignes 
move.w #5,d0 
BoucleAfficheNombre: 

; recopie les caractères de 
; la table dans le sprite. 
move.w (a4)+,d1 

lsl.w #5,d1 

or.w (a3)+,d1 

move.w dl, (a0) 

clr.w 2{aû) 

move.w (a2)+,d1 

lsl.w #5,d1 

or.w (al)+,d1l 

lsl.w #6,d1 

move.w d1,32{(a0) 

cir.w 34(a0) 

add.l #4,a0 

dbf d0,BoucleAfficheNombre 
rts 


FL ARERKRARRRAARELEAREARAREREAREÉ 


;Routine de traçage du terrain 
PARKRKARERALRERARERRERAREXEERXX 


; D0=Largeur du côté 
;: (32/64/128/256) 


DrawWorld: 
movem.l d0-a6,-(sp) 

; bases des bitplans 
move.l plani,a0 

move.l plan2,ai 

moveq #0,d1 

moveq #0, d2 

move.w #$1fff,d3 

; tout d’abord, on efface 
ClearScreen: 

move.l d1, (a0)+ 
move.l d2, (al)+ 
dbf d3,ClearScreen 
















; calcul adresse de début, 
: on passe des octets pour 
; la marge de gauche 
move.w d0,d1 

move.w d0,d2 

lsl.w #5,d1l 

lsr.w #4,d2 

add.w d2,d1 

move.l plani,a0 

move.l plan2,al 

add.w di,a0 

add.w di,al 






















bsr ChoixBits ; voir ci-dessous 
move.l #512,d3 ; combien de carrés ? 
divu d0,d3 

; un DIV ne peut pas faire 

; de mal (enfin, pas trop...) 
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lsr.w #1,d3 
sub.w #1,d3 
move.w d3,a2 


move.w d0,d3 
sub.w #1,d3 
move.w d3,a3 


move.w d0,d6 
lsr.w #4,d6 
sub.w #1,d6 
lsl.w #6, d0 


move.w a2,d4 

; boucle verticale des carrés 
DWboucleV: 

move.w a2,d5 

; idem horizontale 

DHbouclen: 


move.w a3,d3 

; les boucles pour UN carré 
Dipetitebouclev: 

move.w d6,d7 
DWpetiteboucleHfill : 

move.w dl, (a0)+ 

move.w d2, (al)+ 

dbf d7,DWpetiteboucleHfill 
move.w d6,d7 
DipetiteboucleHclear: 

clr.w (a0)+ 

clr.w (al)+ 

dbf d7,DWpetiteboucleHclear 
dbf d3,DWpetitebouclev 


dbf d5,DWboucleH 
add.w d0,a0 

add.w d0,al 

dbf d4,DWboucleV 
movem.l (sp)}+,d0-a6 
rts 


; remplit l'écran avec 
; la couleur en cours 
ClearWorld: 

movem.l d0-a6,-(sp) 
move.l planl,a0 
move.l plan2,al 

bsr ChoixBits 
move.w #$3fff,d3 
ClearScreen2: 

move.w di, (a0)+ 
move.w d2, (al)+ 

dbf d3,ClearScreen? 
movem.l (sp)+,d0-a6 
rts 


; la routine qui détermine 
; les mots en fonction des 
; bits de la couleur 
ChoixBits: 

moveq #0,d1 





Amiga 


Amiga 












































moveq #0,d2 
move.w Color, d3 
btst #0,d3 

beq PasCls0 
move.w #-1,dl 
PasCls0: 

btst #1,d3 

beq PasCls1 
move.w #-1,d2 
PasCls1: 

its 

HRÉLLLELEE SELS EEELESS SELLE SE 


; *** Initialisations *** 
ELLE LES EE LES ES SEE S SES S SE 
Inits: 

lea $dff000,a6 














move.w #$7£ff, $9a(a6) 
move.w #S7£££, $96 (a6) 
move.w #$c020,$9a(a6) 
move.w #$83a0, $96(a6) 


move.l SpriteVide, a0 
cir.l (a0)+ 
cir.l (a0)+ 


move.l SpriteTableau, a0 
move.w #$2e50, (a0) 
move.w #$4a00,2(a0) 
move.w #$2e58,256(a0) 
move.w #$4a00,256+2 (a0) 
move.w #$2e60,512(a0) 
move.w #$4a00,512+2 (a0) 
move.w #$2e68,768 (a0) 
move.w #$54a00,768+2 (a0) 


move.l SpriteNombre, a0 
move.w #$2ec2, (a0) 
move.w #$3400,2(a0) 
move.w #$2eca, 32 (a0) 
move.w #$3400, 34 (a0) 


move.l SpriteCursor, a0 
lea ImageCursor,al 

bsr InitSprites 

move.l SpriteSelect, a0 
lea ImageSelect, al 

bsr InitSprites 


move.l copper list, a0 


move.l #$00e00000, (a0)+ 
move.l #$00e20000, (a0)+ 
move.l #$00e40000, (a0)+ 
move.l #$00e60000, (a0)+ 
move.l #$01020000, (a0)+ 
move.l #$£ffffffe, (a0)+ 


! 


’ 


INTENA 
DMACON 
IT vbl uniquement 


: copper et bitplan 


; positionne les sprites 


; la copper-list met les pointeurs 


; bitplans 














| move.l #$2cal2cal, $8e (a6) 


move.w #$2200, $100 (a6) 
clr.1 $102(a6) 

move.w #30, 5108 (a6) 
move.w #30,$10a (a6) 
move.l #$004000c0, $92 (a6) 
move.l #irq,$6c 


move .w #$0024, $dff104 

move.w #$555,S$dff180+17*2 
move.w #$00£, $d£f180+18*2 
move.w #$£££, $d£f180+19*2 
move.w #$£££, $dff180+21*2 
move.w #$£££, Sdff180+25*2 
move.w #S£££, Sd££180+29*2 


clr.w $dff180 
move.w #$£00, $df£182 
move.w #$00£, $d£f184 
move.w #$££0, Saff186 
bsr InitClavier 

rts 


InitSprites 

move.w #15, d0 

cir.l (a0)+ 
RecopieSprites: 

move.l (al)+, (a0)+ 
dbf d0,RecopieSprites 
clr.l (a0)+ 


rts 
HLLLEEE EE ESS EEE SES S SSL ESS) 


: DINSTRT et DIWSTOP 
BPLCONO 

BPLCON1 et BPLCON2 
BPLMOD1 

BPLMOD2 

DDFSTRT et DDFSTOP 
: vecteur irq 


priorité des sprites 


Cr 


: couleur playfield 
; noir, rouge, bleu, jaune 


: initialise Le clavier 


LES ES) 


;*** Routine du ‘scrolling' *** 


HLELECLCEELEEELEELEE ESS SELS SEE 

Screen: 

tst.w FlagSuivre : est-on-en mode suivi automatique ? 
beq PasSuivie ; non 

tst.l AdrSelect ; une turmite est-elle sélectionnée ? 
beq PasSuivie i non 

move.l AdrSelect,a0 ; si oui 


tst.w V(a0) est-elle vivante ? 
beq PasSuivie ; non 
PasFinSuivre: 


move.w X(a0) , d0 
sub.w #128,d0 
move.w d0,Xwindow 
move.w Y(a0),d0 
sub.w #128,d0 
move.w d0, Ywindow 
PasSuivie: 


et 


move.w Xwindow, d0 
bpl PasWindowGauche 
moveq #0,d0 

move.w d0,Xwindow 
bra PasWindowDroite 
PasWindowGauche: 
cmp.w #256, d0 

bmi PasWindowDroite 


prend ses coordonnées 
centre 
les met dans celles de la fenêtre 


: on corrige éventuellement les 
: coordonnées de la fenêtre 





couleurs de ces mêmes sprites 






;: On se met en 256*256 2 bitplanes (4 coul.) avec 16 points 
: cachés à gauche pour faire un scrolling avec le delay. 
move.l copper list, $80(a6) ; Copi1LC 
clr.w $88(a6) ; COPJMP1 


move.w #256,d0 
move.w d0, Xwindow 
| Mae ob 
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move.w Ywindow, di 

bpl PasWindowHaut ‘ 
moveq #0,d1 

move.w dl, Ywindow 

bra PasWindowBas 
PasWindowkHaut : 

cmp.w #256,d1 

bmi PasWindowBas 

move.w #256,d1l 

move.w di, Ywindow 


PäsWindowBas : 
move.w Xmouse, Xmousew ; coordonnées absolues de 
add.w d0, Xmousew ; la souris dans le terrain 


move.w Ymouse, Ymousew 
add.w di, Ymousew 


lsl.w #6,d1 ; Calcul adresse de départ des bitplans 
move.w d0, d2 
lsr.w #3,d2 
and.w #$fffe, d2 
add.w d2,d1 
not.w d0 

and.w #15,d0 
moveq #0, d2 
move.w d0, d2 
lsl.w #4, d0 
or.w d0,d2 


move.l copper list,al ; met le delay dans la copper-list 
move.w d2,2+16{al) 


move.l planl,a0 
add.w di,aû 
move.l a0,d0 


move.w d0,6(al) ; met l'adresse dans la copper-list 
swap dû 
move.w d0,2{al) 
swap d0 
add.1 #$8000,d0 ; deuxième bitplan 
move.w d0,6+8(al) 
swap d0 
move.w d0,2+8({al) 


moveq #0,d4 ; gestion du sprite curseur de sélection 
moveq #0,d5 

move.l AdrSelect, d0 
beq PasSpriteSelection 
move.l d0,a0 

tst.w V(a0) 

beq PasSpriteSelection 
move.w X(a0),d0 

sub.w Xwindow, dû 

bmi PasSpriteSelection 
cmp.w #255,d0 

bpl PasSpriteSelection 
move.w Y(a0),d1 

sub.w Ywindow, dl 

bmi PasSpriteSelection 
cmp.w #255,d1 

bpl PasSpriteSelection 































































add.w #$2a,d1 


move.w d1l,d2 
add.w #8,d2 


move.w d0,d3 
lsr.w #1,d3 
move.w d1l,d4 
lsl.w #8,d4 
move.b d3,d4 


move.b d2,d5 
1sl.w #8,d5 
roxl.w #8,d1 
roxl.b #1,d5 
roxl.w #8,d2 
roxl.b #1,d5 
roxr.b #1,d0 
roxl.b #1,d5 


PasSpriteSelection: 
move.l SpriteSelect, a0 
move.w d4, (a0)+ 
move.w d5, (a0) 


rts 
FRRARERARRERARRARARARERIAR 


;*** Routines de l'IRQ *** 
3 RRRRR ARR IA RRN RAR RHIN IR 
irq: 

movem.l d0-a6,-(sp) 

bsr GereSprites 

bsr Souris 

bsr Screen 

move.w #-1,VblFlag 
movem.l (sp)+,d0-a6 
move.w #$20, Sdff09c ; it vbl traitée INTREQ 
rte 


2 ARR ARNO 


; Routine de gestion des sprites (début VBL) 
RAR ARR HRK HEAR HO HART TC OK 
GereSprites: 

move.l SpriteCursor,$dff120 ; SPROPT 

move.l SpriteSelect, Sdff124 ; SPRIPT 

move.l SpriteNombre, d0 


move.l d0,Sdff128 ; SPR2PT 
add.1 #32,d0 
move.l d0,$dff12c ; SPR3PT 


move.l SpriteTableau, d0 


move.l d0, $dff130 ; SPR4PT 
add.1 #256,d0 
move.l d0,$dff134 ; SPR5PT 
add.1 #256,d0 
move.l d0,$dff138 ; SPRGPT. 
add.1 #256, d0 
move.l d0,$dff13c ; SPRTPT 


rts 





add.w #$9d, d0 ; pareil que pour celui de la souris 


4 sprites pour le tableau 


Amiga 








Ouf ! Plus qu'une partie, et le mois prochain, avec la 
gestion des entrées (souris, clavier), nous en aurons ter- 


miné ! Bon courage... 
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Ce mois-ci, les news Mac sont entièrement 
consacrées à ce qui se passe chez Apple. Et il 
s'en passe, des choses, chez eux (commentaire 
tout à fait innocent vis-à-vis d'autres 
sociétés, bien sûr...). 


ET VOILA HYPERCARD 2! 


Il n'est plus nécessaire de vous présenter HyperCard, je 
l'espère. Pour ceux qui se seraient endormis ces der- 
nières années, rappelons tout de même qu'il s'agit d'un 
programme créé par Bill Atkinson (celui-là même qui fit 
MacPaint aux débuts du Macintosh), permettant la créa- 
tion simple d'applications, entièrement à la souris, avec 
la possibilité d'écrire ensuite des “scripts” complets 
allant un peu plus loin que les options standard. 

© é File Edit Go Tools Objects 


Home (browser) 


Font Style Help 


Home 


To open a file, click its name. 


Applications 






Adresses 
Appointments 

Art Bits 

Background Art 
Graph Maker 
HyperCerd Help 
HyperCerd Tour 
HyperTelk Reference 
Phone Disler 

Power Tools 
Practice 

Puzzle 

Reedymede Buttons 
Readymede Fields 
Scanned Images 
Stack Templates 


















Documents 




























D Open stack in new window 





Enter the labels and date to graph: 
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Script of background id 11532 = "Graphs” 
mmmmmnmmnmammmmmmmmmnmmmnnn Script Header messe) 
Script of: bkgnd “Graphs” 
Stack version 
Date: 5/6/90 
Authors: 


à Copyright 1990 Apple Computer, 
20525 Mariani Ave, Cupertino, CA 95014 


HANDLERS: goCard,opencard,clesecard, shäreTheText, sav 


UNCT IONS 


Size of script: 3505 chars, 


D D D 0 D A D D D D D A D D D 6 D A me 






click at the loc of bg btn “drawgraph" 
end enterKey 




















Ce programme, qui permet de mettre en oeuvre relative- 
ment facilement les concepts d'hypertexte, par la possi- 
bilité d'établir des liens entre un objet d'une “carte” et 
une autre carte, a connu un vif succès, d'autant plus que 
son langage de programmation, assez original puisqu'il 
essayait de suivre le plus possible la syntaxe de lak 
langue anglaise, a permis la création de très nombreuses |} 
applications plus ou moins complexes. Je vous invite 
évidemment à vous reporter à notre série sur le sujet, B 
dans les numéros 35 à 41. 


Mais trêve de bavardages, voyons ce qu'apporte de nou- El 
veau la version 2 — qui sera disponible en France au mois Ê 
d'octobre — et qui est évidemment une mouture complè- fs 
tement nouvelle, rien à voir avec celles qui ont suivi la} 
1.0, et qui n'apportaient que des changements mineurs. $ 
Tout d'abord, chaque pile peut avoir une taille de son 
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HyperCard basics 
É| Browsing and findinginformation 





in stack: Graph Maker 5/ 
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setFont,clearScreen 








getMaxValue,maxChars,roundUp, char tHidth, chi 
char tBottom, char tRight,chartLeft 
















Card 1of 1 









dotienu itemName [without dialog] 
1 dotienu itemNose, menuName - 
f [without dialog] 


; HyperCard sends the doMenu 

! command to the current card when the 
user selects a menu item, The value 
passed 85 i tenNane is the exact name of 
the menu item selected. The value 
passed as menuNane is the exact neme of 

? the menu that contains the menu item. 

| You can intercept the command by 

! placing a doMenu handler in any script 

in the message passing order al or later 

? than the card script, For example: 








| The doMenu command performs the 

| action specified by the item name and 
menu name ss though you had chosen 
À the itern directly from the appropriate 
HyperCard menu. 













The “without” dialog form allows you 
to execute a menu command from «a 
d script that would normally display a 
A dielog (forexample, when deletinge 
background field). 


Exemples Peine Scrint 





! on dottenu thel tem 


Î £tatements 
‘end doMemæ End of Topic ---— 
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choix, chacune des dimensions étant limitée à 1280 
pixels. Ensuite, on peut ouvrir simultanément plusieurs 
piles qui seront affichées chacune dans une fenêtre, et ce, 
à concurrence de la mémoire disponible. Au passage, 
notez qu'HyperCard 2 exige déjà le système 6.0.4, on se 
demande quelle version il réclamera à sa sortie ! 


Par contre, pas de gestion de la couleur à l'horizon. Le 
vectoriel ne semble pas non plus avoir été honoré, du 
moins à première vue (nous n'avons pu faire qu'un tour 
très rapide de la chose, mais vous trouverez bien sûr 
plus de détails dans notre prochain numéro). 


Continuons notre rapide tour par les aspects de pro- 
grammation. HyperTalk, le langage, a reçu des améliora- 
tions, mais ce qui frappe le plus, c'est la présence de 
nombreux outils pour en faciliter l'usage : on a mainte- 
nant un véritable éditeur à sa disposition, chaque script 
ayant sa propre fenêtre, et plusieurs scripts pouvant évi- 
demment être ouverts simultanément. Un débugger a 
même été ajouté, permettant de tracer les handlers, de 
visualiser le contenu des variables, d'être informé des 
messages, etc. Bref, un énorme changement, qui en cache 
encore beaucoup d'autres. 


Je vous invite donc à nous rejoindre le mois prochain 
pour plus de détails. 


PLUS LENT ? MOINS CHER ! 


Apple a récemment présenté sa nouvelle gamme d'impri- 
mantes laser, les “Personal Laserwriters”. Basées sur des 
mécaniques Canon LX, elles sont plus compactes (avec 
tout de même 2 bacs à papier), un peu plus lentes (4 
pages par minute au lieu des 8 habituelles), mais surtout 
moins chères, et elles risquent d'en séduire plus d'un. 

On trouve tout d'abord la Personal Laserwriter SC, qui 
pour moins de 13000F, offre tout de même un 68000 à 
8 MHz, 1 Mo de RAM, et se connecte à un Macintosh (et 
un seul) par le port SCSI, n'acceptant que QuickDraw 
(mais avec ATM et les fontes TrueType du Système 7, 
c'est loin d'être nécessaire dans la plupart des cas). 





La Personal Laserwriter NT, quant à elle, dispose du 
même processeur, mais cadencé cette fois à 12 MHz, et 
accompagné de 2 Mo de RAM, extensibles à 8, permet- 
tant de faire fonctionner PostScript qui est intégré, ainsi 
que 37 polices de caractères. Le tout est accessible via 
LocalTalk, permettant le partage de ladite imprimante 
sur un réseau. 

Bref, de bien belles imprimantes pour qui n'a pas besoin 
de la vitesse ou de l'encombrement d'une LaserWriter Il. 
Notez toutefois que si la Personal LaserWriter SC peut 
être transformée en son homologue NT, il n'est évidem- 
ment pas possible de transformer le tout en Laser Writer 
Il, évidemment ! 


JDD 90, SYSTEME 7 & CO... 


Nous vous parlions la dernière fois des Journées du 
Développement '90 organisées par Apple fin juin. Le 
thème principal en a été la version 7 du Système, et les 
développeurs présents ont reçu un magnifique CD-ROM 
le contenant, ainsi que quelques autres “bricoles” comme 
une version préliminaire sur disque du volume VI d'Insi- 
de Mac, consacré à la version sus-citée du dit Système. 
Evidemment, il était à la charge de chacun de trouver un 
lecteur de CD-ROM (avec en plus un semblant de ruptu- 
re de stock sur cet article chez Apple...). Les chanceux ou 
les débrouillards ont dont pu découvrir une “alpha-ver- 
sion” du Système 7, qui est encore très lente, mais qui a 
le mérite de tourner, et de prouver que tout ceci est autre 
chose qu'un beau discours des dirigeants d'Apple. 

Ainsi, les développeurs français vont maintenant pou- 
voir travailler en connaissant les caractéristiques précises 
du Système 7, en tirer parti dans leurs applications, 
éventuellement corriger ce qui pourrait désormais poser 
problème avec cette nouvelle version. 

L'un des plus gros apports du Système 7, au-delà des 
aspects extérieurs comme le nouveau Finder, est la pré- 
sence de l'‘Edition Manager”, un nouvel ensemble de 
routines du Système permettant de gérer le partage de 
données entre applications. Il suffira dans les applica- 
tions qui le prévoieront, de sélectionner un objet, et de le 
rendre “public”, pour pouvoir ensuite y “souscrire” dans 
un autre document, toutes les modifications dans le pre- 
mier fichier étant alors automatiquement reportées dans 
la partie correspondante du deuxième. 

Encore un peu de patience, ça arrive, on vous en reparle- 
ra bien sûr... 


LES PRIX BAISSENT 


Plein de bonnes nouvelles pour ceux qui voudraient un 
Mac, puisqu'on trouve des Mac Plus et SE à des prix 
défiant toute concurrence (jusqu'à 5500F pour un Mac 
Plus tout nu, ou 10000F pour un Mac SE avec disque dur 
de 40 Mo!), pour ceux aussi qui ont déjà un Mac Il, et qui 
vont pouvoir le transformer en IIfx pour 15000 petits 
francs (auxquels il faut rajouter le prix de la RAM, celles- 
ci étant différents). Sachant que le Mac II tournait aux 
alentours de 20000F d'occasion ces derniers temps, 
quelques-uns vont avoir un IIfx pour pas cher ! 














= — 





























LES RESSOURCES 
U MACINTOSH 


HISTORIQUE 


Le catalogue des fichiers 

Avant la génération Macintosh, en 1984, l’antiquité 
informatique connaissait déjà les fichiers, mais avait 
beaucoup de mal à les classer. On comptait sur l'utilisa- 
teur pour fournir un nom auquel le système d’exploita- 
tion ajoutait gracieusement une extension pour indiquer 
de quel type de fichier il pouvait s'agir. Par rapport aux 
systèmes basés sur ce principe comme Unix ou MS- 
DOS, Apple avait déjà innové avec l'Apple ][ en pensant 
à stocker le type du fichier dans un octet spécial du cata- 
logue, au lieu de l'inclure dans le nom du fichier. 


Mais dans le cas du Macintosh, un seul octet était nette- 
ment insuffisant pour pouvoir contenir toutes les infor- 
mations qu'il était prévu de faire figurer au catalogue : il 
fallait au moins 4 octets pour le type du fichier, encore 4 
octets pour l'application qui l'avait créé, sans compter 
les 256 octets nécessaires au codage de l'icône apparais- 
sant sur le bureau. L'idée géniale vint alors : pourquoi 
ne pas ajouter à chaque fichier un deuxième fichier qui 
contiendrait toutes les informations annexes dont il 
pourrait avoir besoin ? Les ressources étaient nées. 


Les paramètres de la toolbox 

Bien sûr, il y avait d’autres raisons pour créer une partie 
“ressources” associée à chaque fichier. Les applications 
qui devaient toutes utiliser la boîte à outils passaient 
une grande partie de leur temps à fournir à ces routines 
des structures de données compliquées, décrivant la 
forme d’une fenêtre, les éléments d’un dialogue, ou 
encore la barre de menu. Toutes les techniques utilisées 
auparavant consistaient à coder dans le programme 
source ce genre de données. Ce procédé est conceptuel- 
lement très mauvais, mais on ne voyait pas comment 
faire autrement. Encore une fois, l’idée d'ajouter un 
fichier associé au programme et qui contiendrait toutes 
ces structures s’imposa chez Apple: Il suffirait alors au 
programme de fournir aux routines de la boîte à outils 
la référence de la structure que l’on voulait utiliser : la 
toolbox se débrouillerait ensuite pour obtenir la descrip- 
tion exacte dans le fichier des ressources. Ainsi, plus 
aucun problème pour traduire un logiciel : il suffira de 
modifier le texte grâce à un éditeur de ressources, sans 
qu'il faille recompiler quoi que ce soit. 





CRÉATION ET UTILISATION DE RESSOURCES 
















Mode d'emploi général de ResEdit 
ResEdit est cet éditeur de ressource, développé par 
Apple. Après l'avoir lancé, il commence par proposer la M 
liste des fichiers présents sur le disque. Lorsqu'on en a 
choisi un, il affiche ensuite la liste des types de ressources PM 
que contient ce fichier. Enfin, lorsqu'on sélectionne un 4 
type donné, il fournit la liste des ressources correspon” | 
dantes, avec leur numéro. Il est alors possible d'éditer et M 
de modifier individuellement chaque ressource. 


liste des fichiers qui se 
trouvent sur le disque, 
dans le répertoire MPW 


liste des types de ressource 
contenues dans le fichier 
MPW Shell liste des ressources de type DLOG 


dans le fichier MPW Shell 








son." 10 = 211 
“Retry open project” 
“Out of Memory" ID= 1 
DLOG “Out of Memory” ID = 9 
DLOG “GetFile” ID = 138 
DLOG “Find” ID = 137 

DLOG "Unmark” ID = 136 
#1 DLOG “Format” 1D = 135 


AD MPW.Console 
AD MPW.Errors 


























Figure 1 - ResEdit 


Une ressource a obligatoirement un type et un numéro | 
(ID), elle peut avoir en plus un nom quelconque. Il ne! 
peut exister deux ressources ayant même type et même | 
numéro, Car ce sont avec ces données qu'on y accède. 
Par contre, le même nom peut servir pour plusieurs res- 
sources. Dans l'exemple sélectionné figure 1, DLOG est 
le type, “Revision.” est le nom et 201 est le numéro. 
Choisir Get Info dans le menu File permettrait de 
modifier toutes ces caractéristiques. Il faut savoir] 
qu'Apple se réserve les ressources dont le type est en| 
lettres majuscules, mais le développeur est libre de créer | 
et d'utiliser ses formats personnels. 

À 
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La gestion des ressources 

Somme toute, chaque ressource n’est qu'un ensemble 
d'octets auquel l’on peut accéder par le biais d’un type et 
d'une ID. Cependant selon le type de la ressource, les 
octets ont des significations variées et à condition que 
ResEdit les connaisse, il peut présenter la ressource de 
manière plus lisible. Ainsi, sur la figure 2 un amateur 
d'hexadécimal pourrait décoder la ressource à la main, 
mais ResEdit s'en charge aussi bien pour l'humain normal. 





é File Edit Find 


| Dialog "Revision. Ag = 201 from MPIU Shell 









Window title: contenu de la ressource, 
interprétée comme Étant 
Revision un dialogue 





top 






contenu de la ressource. sous 
une forme peu lisible en 
hexadécimal 


0001 0000 0000 0000 OO00000n 
0000 00C9 0852 6576 O00..NRev 
6973 696F 6E ision 


Figure 2 - une ressource 





Concernant la programmation, les appels aux routines 
seront donnés en Pascal, car c’est le langage utilisé par 
Apple dans Inside Macintosh. Par exemple, le nom 
d'une ressource est défini par : 

TYPE ResType = PACKED ARRAY[1..4] OF CHAR ; 


Lorsqu'on demande au Resource Manager de charger 
une ressource, celui-ci la cherche dans tous les fichiers 
qui ont été ouverts en commençant par le plus récent. Si 
l'application foto a ouvert le document fiti, la ressource 
sera d’abord recherchée parmi celles de titi, puis celles de 
toto, pour finir par celles du fichier System, qui a été 
ouvert au démarrage de l'ordinateur. Ce procédé est 
excellent pour hiérarchiser les utilisations des ressources : 
un document peut avoir ses propres ressources pour lui 
tout seul et une application peut en avoir pour tous ses 
documents. Pour charger une ressource quelconque en 
mémoire si elle ne s'y trouve pas déjà, on peut utiliser : 
FUNCTION GetResource (theType : ResType; theID: INTEGER) : Handle 
FUNCTION GetNamedResource (theType :ResType; name:Str255) :Handle 


A ce propos, il faut savoir que la mémoire sur 
Macintosh est partagée entre plusieurs blocs de tailles 
modulables : un bloc pour le système appelé le “system 
heap”, et un bloc par application : le “application heap”. 
Ces blocs contiennent en fait un index des pointeurs et 
handles alloués. L'action de charger une ressource cor- 
respond à allouer un handle de la taille judicieuse et à y 
placer le contenu de la ressource. Si l’on veut créer une 
nouvelle ressource d’un type donné, il faut fournir un 
numéro qui ne soit pas déjà alloué. Pour en trouver un, 
la fonction suivante accomplit des merveilles : 

FUNCTION UniquelD (theType : ResType) : INTEGER ; 


On pourra enfin créer la ressource en utilisant : 
PROCEDURE AddResource{ theData: Handle: theType: ResType ; 
thelD: INTEGER ; name: Str255 Je 


Mais le plus souvent, un programme veut modifier une 
ressource déjà existante. Pour cela, il faut d'abord la 
charger en mémoire par un GetResource, puis appeler 
successivement les deux procédures : 

PROCEDURE ChangedResource( theResource : Handle ) ; 
PROCEDURE WriteResource (theResource : Handle ) ; 


Si l’on veut pouvoir manipuler la partie ressource 
comme un fichier normal, il existe un appel du File 
Manager qui le permet : 

FUNCTION OpenRF{( filename : 
VAR refNun : 


Str255 ; vRefNum : 
INTEGER ) : OSErr ; 


INTEGER ; 


Pour copier un fichier entier, il suffira de copier d’abord 
la partie data, qui s'obtient de façon standard par un 
FSOpen, puis de copier la partie ressource grâce à 
OpenRF. Ceci explique que lors de la transmission par 
un programme standard (par exemple écrit en C utili- 
sant stdio.h), il manque le plus souvent une importante 
partie du fichier : seule la partie data a été transmise. 


LES TYPES DE RESSOURCE CELEBRES 


Les dialogues 

Une boîte de dialogue, c'est une fenêtre qui sert à 
demander des informations à l'utilisateur. Il y a deux 
types d'information à fournir pour en créer une : d’une 
part, il faut indiquer les dimensions et le type de la 
fenêtre, ce que font les ressources DLOG. Il faut d'autre 
part indiquer la liste des items, qui se trouvent dans les 
ressources DITL. Comme on accède à un dialogue par 
la ressource DLOG, il faut que celle-ci contienne en plus 
le numéro de la ressource DITL associée : il est contenu 
dans le champ itemsID (figure 2) . Îl n’est donc pas du 
tout obligatoire d’avoir les mêmes numéros pour les 
deux ressources. Et lorsqu'on déplace un dialogue avec 
ResEdit, il ne faut pas oublier la partie DITL. 


Un dialogue est en fait une collection d'items. Chaque 
item occupe un rectangle dans le dialogue, et a un type 
précis : bouton, icône, texte, image (voir figure 3). Tous 
ces paramètres étant éditables avec ResEdit, il est très 
facile de construire un dialogue ou de modifier son 
design sans que cela perturbe l'application qui l'utilise. 


Au lieu d'utiliser la fonction NewDialog dont la décla- 
ration occupe trois lignes, on pourra utiliser la fonction 
GetNewDialog qui va chercher les nombreux para- 
mètres nécessaires à NewDialog dans une ressource : 
FUNCTION GetNewDialog( dialogID : INTEGER ; dStorage : Ptr ; 
behind : WindowPtr )} : DialogPtr ; 


Cet appel charge automatiquement la ressource de type 
DLOG qui a pour numéro dialogID. Avantage : on ne 
code dans le programme source ni les dimensions, ni le 
nom ni le style du dialogue, mais seulement un numéro. 
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é File Edit DITL 
Edit Item #6 
O Button 


© Check box 
O Radio control 


O Static text 
O Editable text 


© CNIL resource 
© ICON resource 
© PICT resource 


O User item 


list 1D = 201 from MPU Shell 


© Enabled 
© Disabled 


right 175 


‘Check in fil 


[] Create a branch 


Figure 3 - ressource DITL 


Les “Alerts” 

Une “alert” permet de prévenir l'utilisateur lorsqu'un 
événement grave s’est produit, généralement quand le 
système ne peut plus fonctionner comme prévu. Par sa 
structure, une “alert” est semblable à un dialogue, sauf 
que si le système a des ennuis, il se peut que les “alerts” 
fonctionnent encore lorsque les dialogues sont plantés. 
Dans ce but, une “alert” est beaucoup moins souple 
qu'un dialogue : la fenêtre a toujours le même style et 
elle apparaît toujours au premier plan. Enfin, l’utilisa- 
teur doit impérativement traiter l’’alert” avant de faire 
autre chose. Tout cela fait que les ressources ALRT utili- 
sent aussi les ressources DITL, étant quasiment iden- 
tiques aux ressources DLOG. 


Pour créer une “alert” dont la description se trouve 
dans la ressource de type ALRT, il faut utiliser : 
FUNCTION Alert (alertID: INTEGER; filterProc: ProPtr) : INTEGER ; 


La simplicité de cet appel encourage les programmeurs 
à tenir l'utilisateur informé de ce qui se passe. 


Les menus 

Chaque ressource de type MENU contient la description 
d’un menu déroulant (voir figure 4). Une barre de menus 
est constituée d'un assemblage de ces menus déroulants. 
La ressource indique le titre du menu, puis la liste des 
rubriques, avec pour chacune son style (gras, souligné) 
et son équivalent clavier éventuel (accessible par Com- 
mande). Il est donc très facile de changer ces valeurs, par 
exemple pour utiliser un équivalent clavier personnel, 
car le programme se réfère entièrement au contenu des 
ressources. Il existe aussi une ressource (MBAR) don- 
nant une liste de ressources de type MENU, permettant 
ainsi de former une barre des menus. 


width 
height 
prociD 
enableFigs 
title 


HO HHOHOK premier élément du menu 


CE équivalent clavier 


Figure 4 - ressource MENU 


menultem 
icon* 
key equiu 


nark Char 


Selon que l’on utilise les ressources MBAR ou MENU, 
on appellera : 

FUNCTION GetMenu( resourcelD : INTEGER ) : MenuHandle ; 
FUNCTION GetNewMBar( menuBarID : INTEGER ) : Handle ; 


Les fenêtres 
Une ressource de type WIND contient les dimensions, le B 
style et le nom d'une fenêtre. Le style correspond à la 
forme du cadre entourant la fenêtre, ainsi qu’à la pré-}s 
sence d'éléments comme la “zoom box” ou le titre. La B 
ressource indique également si la fenêtre doit être 
visible ou masquée lors de sa création, et si elle dispose 
d'une case de fermeture. ResEdit par défaut montre la 
fenêtre dans une vue réduite telle qu’elle apparaîtrait 
sur l'écran actuel, mais il est aussi possible d'afficher la 
définition de la fenêtre sous forme de texte, afin de 

modifier au point près les dimensions par exemple. 


Comme pour les dialogues, on peut créer une fenêtre en Ji 
utilisant la fonction NewWindow dont la déclaration 
occupe quatre lignes, mais il est fortement conseillé 
d'utiliser les ressources grâce à : 
FUNCTION GetNewWindow( windowlD : INTEGER ; wStorage : 
behind : WindowPtr ) : WindowPtr ; 


Ptr ; D 


Les chaînes de caractères 
Une ressource de type STR contient une seule chaîne de | 
caractères, que le programme peut utiliser comme bon 
lui semble. Par contre, une ressource de type STR# 
contient une liste de chaînes de caractères, permettant 
d'économiser de la place lorsque le programme a besoin 
d'un grand nombre de chaînes. Encore une fois, le fait 
de placer toutes les chaînes en dehors du code permet 
une traduction aisée, sans avoir à recompiler en particu- 
lier. De plus, cela permet de corriger en une minute des} 
fautes d'orthographe qui seraient désagréables à l'œil. 


Pour lire une chaîne de caractères à partir d'une ressour- 
ce STR, on utilisera : 

FUNCTION GetString( stringID : INTEGER ) : StringHandle ; 
qui est comme le fait remarquer Inside Macintosh 
équivalent à : 

GetResource ('STR ‘,stringlD). 
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Dans le cas des ressource STR#, il suffira d'utiliser : 
PROCEDURE GetIndString({ VAR theString ; Str255 ; strlistID : 
INTEGER ; index : INTEGER ) : 


Les polices de caractères 

Les polices de caractères sont essentiellement stockées 
dans les ressources de type FONT, qui contiennent cha- 
cune une seule taille pour une police donnée. Pour une 
fois, le numéro de ressource a une grande importance, il 
indique en même temps le nom de la police et sa taille 
par la formule : ID = (128 * numéro de police) + taille de 
police. Aïnsi, la FONT ID=12 correspond à la police 
Chicago en taille 12. 


Le plus souvent, les ressources FONT se trouvent dans 
le fichier System, car elles sont communes à toutes les 
applications. Cependant, si une application particulière 
a un besoin spécifique, elle peut contenir les polices cor- 
respondantes dans son fichier de ressource personnel. 


Le code d'un programme 

Un programme compilé se trouve contenu entièrement 
dans des ressources de type CODE, chacune correspon- 
dant à un segment. La ressource ayant le numéro 0 est 
spéciale : elle ne contient pas de code exécutable, mais 
une structure, la “Jump Table”, qui sert à passer d’un 
segment à un autre. Si le segment n’est pas présent en 
mémoire, elle appelle le “Resource Manager” pour char- 
ger la ressource correspondante. Au lancement d’une 
application, la ressource CODE ID=0 est chargée, puis la 
première entrée de la table est exécutée, provoquant le 
chargement de la ressource CODE ID=1 qui contient le 
programme principal. Au fur et à mesure que le pro- 
gramme s'exécute, les segments demandés sont chargés 
en mémoire vive. 


| Cependant, comme pour toutes les ressources, il est pos- 


sible de préciser si un segment doit être chargé dans le 
“application heap” au lancement de l'application. Si 
c'est le cas, on peut aussi préciser si ce segment (ou plus 
généralement n'importe quelle ressource) peut être 
purgé dans le cas ou il y aurait un manque de mémoire 
ou s’il doit impérativement rester en mémoire vive. Ces 
fonctions sont assurées par les bits “Locked”, “Pur- 
geable”, “Protected” et “Preload” dans Get Info du 
menu File dans ResEdit. Il est même possible de charger 
la ressource dans le “system heap” en positionnant le bit 
correspondant. 


Les drivers et accessoires de bureau 

Un driver a pour type de ressource DRVR, et contient 
un programme codé en langage machine. Les acces- 
soires de bureau sont considérés sur le Macintosh (et en 
attendant le Système 7) comme des drivers particuliers. 
Ils sont donc stockés dans des ressources de type 
DRVR, mais leur ID doit être en principe compris entre 
12 et 31. Le plus souvent, tout comme les polices de 
caractères, ces ressources se trouvent dans le fichier Sys- 
tem, mais il peut arriver qu'une application ait besoin 
de son accessoire de bureau personnel, auquel cas elle 
pourra l'inclure dans son fichier ressources. Attention, 
pour déplacer ou installer un accessoire de bureau, il 


vaut mieux utiliser FontDA Mover, car un accessoire de 
bureau peut avoir besoin d’autres ressources (des dia- 


logues par exemple), il ne suffit donc pas de copier la 
ressource DRVR. 


Pour distinguer les vrais drivers des accessoires de 
bureaux, ils doivent faire commencer leur nom par un 
point (.) ou un symbole pourcent (%). Ceci permet 
d'ajouter facilement dans le menu Pomme la liste des 
accessoires de bureau, grâce à la procédure : 

PROCEDURE AddResMenu (theMenu: MenuHandle : theType: ResType); 


En effet, cette procédure inclut dans le menu toutes les 
ressources de type theType, sauf celles dont le nom 
commence par un point ou un pourcent. L'instruction 
AddResMenu (appleMenu, ’ DRVR') accomplit la 
bonne action, sans qu'apparaissent dans le menu 
Pomme les noms de drivers divers. 


Et tous les autres... 

Il reste encore beaucoup de types de ressources : les 
icônes (ICON et ICN#), les images (PICT), les curseurs 
(CURS), les sons (snd ). ResEdit permet de les éditer 
toutes simplement et il n’y a pas de mystère quant à leur 
utilisation : c’est toujours le programme qui fournit un 
numéro et le Resource Manager renvoie l’objet deman- 
dé. Enfin, ResEdit est un programme modulaire : il est 
possible de lui rajouter des sortes de patch (sous forme 
de ressources bien sûr), qui lui permettent de recon- 
naître et donc de présenter le contenu des ressources 
plus agréablement qu’un dump hexadécimal. Par 
exemple, on trouve ces patch pour les cicn, qui sont des 
icônes en couleur. Avec cette amélioration constante de 
ResEdit, l'outil reste à jour et n’est pas dépassé par les 
nouvelles ressources que les développeurs inventent. 


CONCLUSION 


Les ressources simplifient la vie du programmeur, car il 
n'a plus à s'occuper des petits détails que sont les valeurs 
exactes des paramètres lors de la phase de programma- 
tion. Elles simplifient aussi la vie de l'utilisateur car celui- 
ci peut modifier certains aspects des applications sans 
aucune connaissance technique (NDLR : ou presque...). 


Les ressources posent cependant des problèmes si on les 
exploite mal : Apple fait remarquer qu’au delà d'un cer- 
tain nombre de ressources ou d’une certaine taille, le 
système peut devenir horriblement lent. Il ne faut donc 
pas que le programmeur soit tenté d'utiliser les res- 
sources comme une base de données bon marché. Il ne 
faut pas non plus que l'utilisateur modifie n'importe 
quoi à tord et à travers, sous prétexte que ResEdit est 
simple d'emploi en apparence. Il faut quand même 
connaître un minimum le rôle et la signification des res- 
sources, pour pouvoir les manipuler à son gré. 


Alain Raynaud 
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CARTE D'IDENTITÉ Nous remercions, pour le concours 
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L'Institut de Recherche et Coor- de l'IRCAM que nous avons rencontrés 
dination Acoustique Musique lors de la préparation de ce dossier : 
(situé place Saint-Merri, à Paris) 
est, aux côtés du Musée National - Jean-François ALLOUIS 
d'Art Moderne, de la Biblio- Directeur Technique ; 
thèque Publique d'Information et - Laurent BAYLE 
du dre de Création Industriel- Directeur Artistique ; 
le, un des éléments du Centre - Jean-Baptiste BARRIERE 
National d'Art et de Culture Pédagogie ; 
(CNAC) Georges Pompidou. - René CAUSSÉ 

$ : Acoustique Instrumentale ; 
Il est régi par un statut d’associa- - Michel FINGERHUT 
tion d'utilité publique (conforme à Systèmes Informatiques ; 
la loi de 1901), Son udget de fonc- - Andrew GERZSO 


tionnement est alimenté (via le 


\ Recherche Musicale ; 
CNAC qui fournit locaux adminis- 


- Jean-Pascal JULIEN 


tratifs et techniques) par des sub- Acoustique des Salles ; 
ventions du Ministère de la Cultu- - Eric LINDEMANN 
re, de la Communication et des Développement ; 
Grands Travaux (dont le montant - Miller PUCKETTE 
ur 1990 s'élève à 30 MF) et par Ingénieur ; 
a commercialisation de ses pro- - Xavier RODET | 


ductions et manifestations : 
concerts, éditions, prestations de 
services, dons et mécénats, rede- 
vances sur les licences des pro- 
duits industrialisés. 


Analyse-Synthèse ; 


"Dédicace Spéciale" 
à Giuseppe Di GIUGNO, 
concepteur du Système 4X. 
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IRCAM : ACTES INFORMATIQUES 


1974 

Après quatre ans de travail sur un projet que le président Georges Pompi- 
dou lui a proposé de mettre en oeuvre, Pierre Boulez expose les principes 
directeurs du centre de recherche musicale rattaché au CNAC. 


1975 ; 
Implantation du centre informatique de l'IRCAM, autour du System 10 de 
Digital Equipment. 


1976 

Premier développement scientifique réalisé à l'IRCAM : l'équipe animée 
par l'ingénieur italien Giuseppe Di Giugno réalise le processeur de sons 
numériques 4A. 


1978 

Inauguration de l'Espace de Projection, la salle de concerts interne à 
l'IRCAM dont les configurations géométriques et acoustiques sont com- 
mandées par ordinateur. 


1979 

Développement, sur un VAX 780 de Digital Equipment, du projet informa- 
tique Chant, dirigé par Xavier Rodet, pour la synthèse de la voix chantée ; il 
débouchera sur la mise au point du langage Formes, destiné au contrôle des 
modèles de synthèse, et sera transporté sur un FPS 100. 


1981 
Création de la version initiale de Répons, partition de Pierre Boulez mettant 
en valeur les outils informatiques créés par l'IRCAM. 


1983 

Industrialisation du système de traitement de signal numérique 4X par la 
société Sogitec (pour réaliser un simulateur de vol), aboutissement de la 
gamme des systèmes inaugurée avec la machine 4A. 


1985 

Mise au point et présentation, par l’équipe de David Wessel, des premiers 
logiciels pour micro-ordinateurs (Macintosh) ; organisation des Ateliers de 
micro-informatique musicale. 


1986 
Symposium Systèmes personnels et informatique musicale - concerts présen- 
tant des oeuvres réalisées avec les outils micro-informatiques de l'IRCAM 
(M.-A. Dalbavie, P. Durville, P. Hurel, M. Lindberg). 


1987 
Esquisse : programme de Composition Assistée par Ordinateur (CAO) réa- 
lisé sous la direction de Jean-Baptiste Barrière. 


1988 
Max/Patcher : logiciel de contrôle des interactions interprète/ordinateur 
(Miller Puckette). 


1989 

Développement, sous la direction d'Eric Lindemann, de la Station d'Infor- 
matique Musicale basée sur l'ordinateur NeXT. Développement d’un envi- 
ronnement de Composition Assistée par Ordinateur (équipe de composi- 
teurs et de techniciens animée par Andrew Gerzso). 





- 213 - 





Technologies Avancées 


PIERRE BOULEZ. 
DIRECTEUR DE L'IRCAM 


Né en 1925, ses activités de compo- 
siteur (oeuvres instrumentales, 
orchestrales et vocales), de chef 
d'orchestre, de pédagogue et d'or- 
ganisateur, l’ont placé au premier 
rang des créateurs de la seconde 
moitié du siècle. 


Présent dans les démarches les 
plus novatrices de son époque, il 
fut l’un des tous premiers à saisir 
l'importance de l'apport technolo- 
gique dans le champ imaginaire de 
l'artiste contemporain. Pierre bou- 
lez est professeur au Collège de 
France depuis 1976. 


Dominique Jameux a analysé les 
nombreuses facettes de cette person- 
nalité unique dans sa monographie 
parue aux éditions Fayard (1984). 


RÉPONS 


La création, en 1981, de cette 
oeuvre de Pierre Boulez (version 
initiale réduite), composée avec 
l'assistance d'Andrew Gerzso, a 
marqué une étape importante de 
l'histoire musicale contemporaine, 
en constituant le premier chef- 
d'oeuvre dans lequel les compo- 
sants contrôlés par l'informatique 
constituent une partie essentielle 
du discours musical. Sa version 
“définitive” (près d’une heure de 
durée) fut présentée en Avignon, 
en 1988. 


Elle réunit trois types d'intervenants : 
e un ensemble de 24 instruments, 
situé au centre du lieu d'exécution, 
et entouré par les auditeurs ; 

e un groupe de 6 instruments 
solistes, encadrant le public, dont 
les sons sont transformés, en temps 
réel, par le système 4X (filtrages, 
resynthèse, réinjections, etc.) ; 

e un dispositif d'amplification et de 
spatialisation des sons, transformés 
ou “naturels”, des instruments 
solistes, contrôlé par ordinateur. 























ENTRETIEN AVEC 


JEAN-FRANÇOIS ALLOUIS 


Les manifestations 
musicales organisées par 
l'IRCAM, partie “publique” 
des activités de l'Institut, 
sont alimentées par une 
multiplicité de recherches 
scientifiques fondamentales 
et appliquées. 

Le Directeur Technique des 
Activités Scientifiques 
présente les grands axes 
de ces travaux, et leurs 
débouchés dans le secteur 
industriel. 


Dans quel contexte l'équipe 
scientifique de l'IRCAM a-t- 
elle entamé ses travaux ? 


A l’époque où l'IRCAM a commencé 
à fonctionner - en 1975 - Pierre Bou- 
lez était fasciné par les premières 
applications d'informatique musica- 
le qu'il avait eu l’occasion de 
connaître aux Etats-Unis, notamment 
les premières utilisations d'ordina- 
teur pour synthétiser des sons. En 
Europe, il n'y avait alors pratique- 
ment rien de fait dans ce domaine, 
hormis les travaux de certains cher- 
cheurs relativement isolés - tels 
Brown, qui travaillait avec l'INRIA, 
ou des précurseurs comme Xenakis. 
Ces travaux se tournaient plutôt en 
direction de l'utilisation de l’ordina- 
teur dans la composition musicale - 
générer la partition ou des éléments 
de partition, ce que nous appelons 
désormais la composition assistée 
par ordinateur - mais très peu en 
direction du son lui-même. 


Au départ, l’équipe de l'IRCAM a 
rassemblé un grand nombre de cher- 
cheurs américains, recrutés aux 
Etats-Unis dans les centres avec les- 
quels nous entretenons des rapports 
assez étroits : le CCRMA - le centre 
de recherche sur l'informatique 
musicale de Stanford - et l’équipe 
qui se trouve au Media Lab du 
M.IT. Ce fut, en quelque sorte, un 
transfert de compétence. Les pro- 
grammes de synthèse musicale en 
temps différé de l'époque, comme 
MUSIC V, furent “importés”, mais, 
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dans le même temps, une équipe de 
recherche plus fondamentale, orien- 
tée notamment vers l’acoustique, fut 
créée. Elle comprenait aussi des 
Français - heureusement ! - comme 
Jean-Claude Risset, responsable du 
département informatique, qui 
venait de travailler aux Bell Labs 
avec Max Mathews, sur MUSIC V. 


Sur quelles bases la démarche 
scientifique repose-t-elle ? 


L'objectif fondamental de l'IRCAM 
est de mettre les technologies 
récentes au service de la musique et 
d’en tirer des outils pour les compo- 
siteurs, les musiciens, et les instru- 
mentistes. Mais, par rapport à cette 
optique très applicative, nous préfé- 
rons prendre un peu de recul et avoir 
l'ambition de mener une recherche 
plus fondamentale. Nous effectuons 
donc des travaux très applicatifs, 
mais également des travaux de 
recherche qui, bien qu'ayant toujours 
une finalité, n’aboutissent à des 
applications qu'après plusieurs 
années d’effort. Ces deux types de 
travaux s’alimentent constamment, 
et bénéficient de la présence des 
compositeurs qui, très concrètement, 
travaillent sur les oeuvres comman- 
dées qui seront exécutées pendant la 
saison de concerts. 


D'autre part, l'IRCAM a été créé à une 
époque où la technologie d’informe- 
tique musicale n’était disponible que 
dans les centres de recherche. Cepenr- 


À 2 0 oo 


dant, en l’espace de dix ans, elle a été 
mise sur le marché, et ce changement 
très important nous a amené à redéfi- 
nir notre champ de travail. Il est évi- 
dent que nous ne faisons pas ce qui 
est du domaine de l’industrie. Il y a 
dix ans, nous étions des pionniers, et 
nous pouvions partir dans toutes les 
directions. Désormais, le territoire est 
balisé et nous ne développons que ce 
qui est de l'ordre de la recherche ou 
bien ce qui a été laissé de côté pour 
des raisons économiques, à cause 
d’une rentabilité insuffisante. 


Sur quelles disciplines 
concentrez-vous vos efforts ? 


Les deux disciplines scientifiques 
avec lesquelles nous avons le plus 
d'affinités, c'est l’acoustique - à ten- 
dance musicale - et l'informatique. 
Nos travaux d'acoustique s’orientent 
essentiellement dans trois directions. 
En acoustique instrumentale, nous 
étudions le fonctionnement des ins- 


La flute 4X et son interface MIDI 


truments de l'orchestre : nous en 
tirons une connaissance plus appro- 
fondie de ces systèmes. Aïnsi, 
l'archet numérique sur lequel tra- 
vaille René Caussé est un système 
expérimental permettant de mieux 
comprendre le fonctionnement d'une 
corde vibrante. Car, pour un phéno- 
mène aussi simple - étudié au XIXe 
siècle par Helmholtz - nous possé- 
dons une théorie de base et nous 
savons à peu près modéliser les phé- 
nonèmes de 2e ordre, mais il y a 
encore des phénonèmes de 3e ordre 
que nous ne savons pas expliquer ! 


Au-delà de la pure connaissance 
scientifique, ces recherches ont un 
impact sur la lutherie : procédés de 
conception des instruments, amélio- 
rations des instruments existants, 
etc. Avec le concours de l'université 
du Maine, nous avons développé 
pour les luthiers un logiciel de cal- 
cul d’impédance acoustique qui 
tourne sur IBM-PC. Il s'agit d'un 
logiciel d'assistance à la conception 
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d'instruments qui permet de calcu- 
ler exactement la position de la 
perce d’un instrument à vent, posi- 
tion qui donne une assurance sur sa 
Justesse - jusqu’à présent, la déter- 
mination de la perce s’effectuait de 
manière totalement empirique. 
Nous avons égalèment étudié des 
Systèmes permettant de produire 
des intervalles microtonaux. La tête 
de flûte peut, par exemple, être 
équipée d’un dispositif permettant 
de produire des quarts de ton et 
nous pensons adapter ce système au 
saxophone, à la clarinette, etc. 


Notre deuxième champ d'investiga- 
tion porte sur l’acoustique des 
salles, et plus généralement, tout ce 
qui concerne les conditions de 
reproduction et d'écoute de la 
musique : le projet est appellé 
“Salles et sources virtuelles” (1). 
Dans le cas des salles virtuelles, il 
s’agit, sans toucher à l'architecture, 
de changer la personnalité acous- 
tique de la salle, de la corriger avec 











des dispositifs électro-acoustiques - 
en termes techniques on parle de 
correction active. En situation de 
concert, les sources sonores sont 
captées par une prise de son rappro- 
chée, le signal est traité de façon 
appropriée, puis rediffusé de maniè- 
re à modifier l’acoustique de la salle. 


Quant à la source virtuelle, elle cor- 
respond à la reproduction d’une 
source réelle - un instrument de 
musique - en prenant en considéra- 
tion toutes ses caractéristiques : non 
seulement le spectre et le timbre - 
envisagés sous un aspect unidimen- 
sionnel comme c'est le cas dans une 
prise de son microphonique - mais 
aussi le rayonnement de l'instru- 
ment. On constate, en effet, que la 
reproduction par haut-parleur, telle 
qu'on l'utilise actuellement dans la 
sonorisation d’une salle de concert, 
n'est pas satisfaisante : elle gêne la 
plupart des musiciens. Ceux-ci 
considèrent que, par rapport à l'ins- 
trument et à l’acoustique, une 
dimension a été perdue. Notre 
hypothèse consiste à chercher une 
solution du côté du rayonnement, 
car les caractéristiques de rayonne- 
ment d’un haut-parleur sont très 
spécifiques, et très différentes de 
celles de la plupart des instruments. 
En tentant de mieux reproduire ce 
rayonnement, nous voulons mesurer 
son impact sur la fidélité de la resti- 
tution. Ce sujet de recherche est plu- 
tôt d'ordre fondamental, car nous 
n'avons pas l'espoir de pouvoir réa- 
liser, à court terme, un dispositif 
miracle. 


Le troisième domaine, auquel le 
groupe dirigé par Steven Mac 
Adams se consacre, est celui de la 
perception du son et de la musique. 
C’est un domaine qui se divise en 
plusieurs champs de travail. En pre- 
mier lieu, nous avons le problème 
du timbre et de la fusion/séparation 
de sources sonores. En d’autres 
termes : pourquoi entend-on, à un 
moment donné, un seul ou plusieurs 


sons, pourquoi identifie-t-on plu- . 


sieurs sources virtuelles ? L'analyse 
porte sur les indices de synchronici- 
té - la cohérence de la modulation 
des sources sonores - mais sans 
cependant former d’hypothèse sur 
le contenu - musical ou non - de la 
perception sonore. 


EEE ES PACE DE PROJECTION 
Cette salle unique en son genre est le lieu expérimental des recherches e 
acoustique architecturale. Elle est également utilisée pour des manifesta- 
tions publiques (concerts ou enregistrements de l'Ensemble InterContem- 
porain, etc.). Un dispositif contrôlé par un ordinateur Macintosh permet de 
configurer à l'infini la géométrie et la matière des parois et du plafond (en 
trois sections indépendantes), formés de modules prismatiques - les 
périactes - commandés par groupes par trois (171 groupes). Leurs trois 
faces sont revêtues de matériaux absorbants, réfléchissants et diffusants, et 
ils sont orientés suivant le type de réaction acoustique souhaité. 
Dimensions horizontales : 24 x 15,5 m 


Hauteur du plafond : 1,5 à 11,50 m 
Capacité d'accueil : 250 à 350 places 





Plus élevé sur le plan de la cogni- 
tion, nous menons un travail sur 
l'interprétation musicale, afin de 
comprendre les variations d'inter- 
prétation d’un même texte, varia- 
tions entre différents interprètes - ou 
à différents moments quand il s'agit 
du même. Nous utilisons pour cela 
un piano MIDI qui enregistre très 
précisément les forces d'impact et la 
durée des appuis sur les touches. 


Nous étudions également le phéno- 
mène de compréhension musicale : la 
manière dont un auditeur mémorise 
et segmente une pièce en plusieurs 
fragments, et opère un découpage 
formel. En appliquant des méthodes 
typiques de la psychologie expéri- 
mentale - beaucoup d'analyses statis- 
tiques - nous essayons de trouver les 
éléments pertinents, communs à tous 
les auditeurs. Cette recherche très 
fondamentaliste intéresse les compo- 
siteurs, car il n’y a pas de règles 
concernant la manière d’orchestrer 
les sons synthétiques, et les études 
sur l'audition peuvent fournir 
quelques guides, quelques repères, 
permettant de réaliser un travail 
d’orchestration à partir de sons syn- 
thétiques de n'importe quel type. 


Dans le domaine de la syn- 
thèse sonore, quels sont vos 
axes privilégiés ? 


Pour produire des sons de synthèse, 
nous utilisons bien évidemment des 
produits commerciaux, mais par 
ailleurs, nous poursuivons nos 
propres recherches et développe- 
ments, essentiellement dans deux 
secteurs : celui de la synthèse par 
modélisation physique, et celui des 
synthèses effectuées à partir du 
modèle vocal. 

Jean-Marie Adrien travaille sur les 
problèmes de modélisation physique 
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Temps de réverbération : de 0,5 à 4,5 secondes. 































‘en utilisant l'ordinateur pour repro- 


duire, par une simulation complète, 
un instrument donné. Dans le cas du 
violon, le processus consiste d’abord 
à déterminer une description géomé- 
trique et mécanique du violon, ensui- 
te, à rentrer ce modèle formalisé dans 
la machine, et enfin, à faire calculer 
par la machine, en appliquant les 
équations générales de la mécanique, 
la manière dont le violon fictif va 
vibrer. Dans cette simulation, les 
limitations pratiques proviennent de 
la masse considérable de calculs qu'il 
faut effectuer et, il y a dix ans, ce pro- 
cessus n’était pas envisageable. Mais 
la puissance de calcul des machines 
ayant évolué exponentiellement, ces 
méthodes deviennent applicables. 
Elles ont l'avantage de permettre une 
reproduction fidèle du son instru- 
mental, notamment au niveau des 
transitoires et des phénonèmes 
d'attaque, une des parties spécifiques 
du timbre. 


Il faut aussi souligner que, dans les 
méthodes de synthèse traditionnelles 
- celles qui sont mises en oeuvre dans 
les synthétiseurs commercialisés - le 
signal produit n’a aucune dimension 
spatiale. La méthode de production 
étant totalement arbitraire, même si le 
son est reproduit en stéréophonie, la 
distribution dans l’espace de ce signal 
ne correspond pas à la manière dont 
le son devrait être spatialisé. A 
l'inverse, en réalisant la modélisation 
physique d’un instrument, la vibra- 
tion de chaque point de sa surface 
rayonnante peut être calculée. Ainsi, 
dans le cas du violon, c’est essentiel- 
lement la caisse qui rayonne. En se 
plaçant à l'extérieur, dans la position 
d’un auditeur ou d’un microphone, la 
contribution parvenant de chacun des 
points est très exactement quanti- 
fiable - éventuellement, la réverbéra- 
tion de la salle d'écoute peut être 
prise en compte. Il est donc possible 


d'obtenir des signaux de synthèse 
réellement spatiaux - en fait, ayant un 
rapport avec la position dans l'espace 
de l'instrument ; on peut même simur 
ler une prise de son stéréophonique. 
La modélisation physique a l’avanta- 
ge de donner accès à la dimension 
spatiale du son, de manière naturelle 
et rationnelle, et non pas arbitraire, 
comme c'est le cas avec les autres 
méthodes de synthèse. 


D'un autre côté, l'IRCAM a la chance 
d’avoir une équipe de travail sur la 
synthèse de la voix, qui est une des 
meilleures au niveau mondial. Le 
modèle vocal est un modèle général 
très intéressant (1), car la voix est 
beaucoup plus complexe que la plu- 
part des instruments de musique. 
Nous avons commencé par synthéti- 
ser la voix chantée, mais, avec la 
même technique, il est tout à fait 
possible de réaliser des synthèses 
instrumentales très intéressantes. 


La station musicale de l'IRCAM 
permettra-t-elle d'aller plus loin 
dans ces travaux ? 


Nous avons besoin d’un système qui, 
a notre avis, n'existe pas actuellement 
sur le marché, notamment pour faire 
de la recherche sur la synthèse et tra- 
vailler avec des techniques d'infor- 
matique musicale. Ce système doit 
avoir pas mal de puissance de calcul 
et de capacité temps réel - puisque 
c'est ce que l’on demande à un systè- 
me qui doit faire de la synthèse sono- 
re dans le contexte d’un concert. Il 
doit aussi être largement ouvert, car 
J'IRCAM est un centre expérimental 
dont l’ambition est d'offrir ce qui 
n'est pas disponible ailleurs. Une telle 
position nous conduit à faire beau- 
coup de prototypage, afin d'apporter 
une réponse aux idées des composi- 
teurs et, pour permettre le développe- 
ment rapide d'un court logiciel spéci- 
fique, la qualité de l’environnement 
de programmation est essentielle. 
Enfin, par rapport au milieu musical, 
le coût du système doit être raison- 


nable : il faut que nous puissions en 
acquérir plusieurs, et que d’autres 
centres - ou même des musiciens 
individuels prêts à faire l’investisse- 
ment - puissent s’en équiper. En fait, 
il ne doit pas coûter plus cher qu'un 
piano de concert. 


Voilà la raison d'être de ce projet, 
qui cherche à intégrer les meilleures 
techniques afin de créer une plate- 
forme de travail sur laquelle nous 
allons continuer à développer des 
logiciels de CAO, de synthèse, etc. 


Dans quelles directions les 
recherches vont-elles se pour- 
suivre ? 


Il faut continuer à appliquer les nou- 
velles idées, même celles qui sont 
encore au stade des balbutiements. 
Nous allons reprendre l'étude d’un 
système artificiel capable d'analyser 
un environnement sonore - tout 
comme on écoute un interprète - et 
d’en retirer les informations qui lui 
permettent de réagir. Si nous avons 
actuellement de bons systèmes de 
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synthèse sonore, nous avons des diffi- 
cultés à contrôler ceux-ci de façon 
intelligente et à les faire jouer : ils se 
trouvent donc isolés dans un univers 
artificiel, incapables de communiquer 
naturellement avec les musiciens 
vivants. C'est une situation analogue 
à celle de la parole : on sait réaliser la 
synthèse, mais pas la reconnaissance 
vocale - tout au moins à un niveau 
complexe. Or, les applications de la 
reconnaissance de la musique par une 
machine sont multiples. Il y à notam- 
ment la transcription automatique 
des partitions : l'enjeu économique en 
est certainement important, mais 
nous sommes plutôt attirés par l'idée 
d'accompagnement d'un interprète 
par une machine. 


Nous avons déjà avancé dans cette 
voie : des instruments ont été équi- 
pés de capteurs analysant la posi- 
tion des clés - c'est le principe de la 
flûte qui envoie des codes MIDI. Un 
programme “connaissant” la parti- 
tion que doit jouer l’instrumentiste, 
peut, à partir des informations 
transmises par les capteurs, se repé- 
rer dans cette partition, et en consé- 
quence, jouer sa propre partie. Tou- 
tefois, étant donné que les capteurs 
ne sont pas toujours utilisables, 
nous voulons aller plus loin, afin de 
travailler directement à partir du 
son émis. 


De façon générale, nous axons nos 
recherches sur la modélisation de 












































tout ce qui se rapporte au contrôle et 
à l'interprétation, de manière à ce 
que, à un niveau élémentaire, la 
machine puisse intervenir automati- 
quement. Les variations d'interpréta- 
tion, les problèmes d’articulation 
entre les sons, la manière de les 
jouer, sont des problèmes que nous 
rencontrons dans la synthèse. Mais il 
nous reste à trouver la façon dont les 
sons s'articulent entre eux - tout 


La chambre anéchoïque de l'IRCAM 


comme ils le sont dans un jeu instru- 
mental normal - puis à modéliser les 
règles de jeu, les règles pour passer 
d'un son à un autre, etc. Enfin, il faut 
transférer cette connaissance dans la 
machine, ceci dans le but de réaliser 
une simulation du jeu instrumental. 


Dans le domaine de l'acoustique des 
salles, un de nos buts est d'arriver à 
des dispositifs utilisables en concert. 


Mais nous avons également un pro- 
jet qui s'adresse aux architectes 
concepteurs de salles. Avec le packa- 
ge de logiciels que nous dévelop- 
pons, un architecte sera à même de 
projeter les caractéristiques acous- 
tiques de la salle qu'il doit dessiner 
et, en fonction des défauts qu'il peut 
constater, faire les modifications 
architecturales qui conviennent. Ce 
qui est important, c'est que l'archi- 





tecte pourra utiliser ce logiciel direc- 
tement, sans faire appel à l'expertise 
d’un constructeur acoustique - de la 
même manière qu’il utilise un pro- 
gramme de C.A.O. 


Comment les équipes de cher- 
cheurs sont-elles constituées ? 


Les travaux de recherche sont sou- 
vent réalisés par un chercheur per- 
manent et deux ou trois stagiaires - 
des étudiants réalisant une thèse ou 
un DEA. Il y a également de nom- 
breuses collaborations : dans le 
domaine instrumental nous tra- 
vaillons beaucoup avec l’Université 
du Maine, avec des luthiers, et, bien 
sûr, en liaison avec l'Ensemble Inter- 
contemporain - ses instrumentistes, 
qui ont un rapport privilégié avec 
l'IRCAM, apportent des idées et 
nous servent un peu de “cobayes”. 


L'IRCAM entretient-il des 


liens étroits avec les indus- 
triels et la communauté 
scientifique ? 


Nous collaborons avec des universi- 
tés françaises et étrangères - améri- 
caines pour la plupart. Dans le 
domaine de la recherche fondamen- 
tale, des étudiants effectuent leurs 
stages de thèse à l'IRCAM sur des 
sujets que nous définissons. Parmi 
les universités avec lesquelles nous 
entretenons des relations quasi-per- 
manentes, on compte notamment 
l’université du Maine - DEA 
d’acoustique appliquée - ; le LAFO- 
RIA de Paris VI - laboratoire infor- 
matique travaillant dans le domaine 
de l'intelligence artificielle - ; le 
LIMSI d'Orsay - laboratoire d’infor- 
matique appliquée s'intéressant à la 
communication avec les machines. Il 
y a également des contacts plus 
ponctuels : par exemple, un des 
membres de l’équipe travaillant sur 
la station musicale prépare, dans le 
cadre du laboratoire d'informatique 
du parallélisme de Lyon, une thèse 
sur les problèmes de compilation 
des programmes pour les proces- 
seurs que nous mettons en oeuvre. 


Sur le plan international, nous entre- 
tenons des rapports privilégiés avec 
Standford, San Diego, le M.LT., et en 
Europe avec l’université de Stockolm. 


Au niveau industriel, la collabora- 
tion est plus épisodiqué, et n'inter- 
vient que lorsque nous sommes cer- 
tains de déboucher sur un produit 
ayant un intérêt commercial, ou 
lorsque nous avons trouvé une solu- 
tion susceptible d'avoir un impact 
industriel. Dans le passé, nous 
avons commercialisé - avec la firme 
Sogitec - le système 4X, mais surtout 
pour des applications extra-musi- 
cales - malheureusement le produit 
était trop coûteux pour pouvoir 
trouver un créneau sur le marché 
musical. Il y a deux ans déjà, notre 
collaboration avec Act Informatique 
a débouché sur la réalisation com- 
merciale de MidiLisp - une version 
de l’environnement Le _lisp destinée 
à la réalisation de programmes 
musicaux. Dans un proche futur, un 
industriel américain (2) va commer- 
cialiser la station musicale dont 
nous achevons la mise au point, et 
avec d’autres compagnies nous 
allons mettre sur le marché plu- 
sieurs logiciels développés à 
l'IRCAM - logiciels MIDI notam- 
ment. Ces logiciels sont orientés vers 
la recherche et la pratique de la 
musique contemporaine, mais leur 
potentialité permet de les adapter 
aux besoins du marché. 


De quelle manière la collabo- 
ration avec les industriels se 
concrétise-t-elle ? 


Dans la majorité des cas, nous 
sommes amenés à chercher des par- 
tenaires. Cependant, dans le secteur 
de l’acoustique, les professionnels 
de la lutherie sont très attentifs à nos 
travaux. Au départ, l'assistance 
informatique ne faisaient pas partie 
de leur méthodes de travail, mais à 
partir du moment où nous avons 
organisé des séminaires pour expli- 


quer ce que nos logiciels pouvaient : 


leur apporter, le mouvement s’est 
déclenché : une dizaine de luthiers 
en France les utilisent maintenant et 
sont passionnés. 


Il faut souligner aussi que, dans le 
cadre du mécénat, nous avons béné- 
ficié de l’aide de grands industriels. 
Sur le plan technologique, Apple, à 
l’époque du lancement du Macins- 
tosh, nous a fourni un certain 
nombre de machines. Aujourd’hui, 
la très importante donation de Dipgi- 
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tal Equipment vient de permettre le 
renouvellement d’une partie de 
notre matériel informatique. Ce sou- 
tien s'adresse directement au côté 
recherche de l’'IRCAM, mais beau- 
coup d’autres compagnies nous 
prêtent leur concours dans le 
domaine artistique - là où l’image 
est plus visible - en aidant à monter 
des concerts ou des opérations de 
production. 


Il existe aussi une autre forme de 
mécénat, moins spectaculaire, mais 
très intéressante. Ainsi, il y a un an, 
nous avons monté une opération de 
mécénat technologique avec l'EDF : 
l'équipe de recherche en acoustique 
de cet organisme nous a fait bénéfi- 
cier de son expertise dans les pro- 
grammes de simulation. Ensemble, 
nous avons pu développer une opé- 
ration de contrôle acoustique de 
notre Espace de Projection. 


Comment les activités de 
l'IRCAM sont-elles diffusées 
au près des chercheurs et du 
public ? 


Dans le domaine scientifique, la dif- 
fusion des résultats adopte une 
forme classique : publication dans 
les grandes revues scientifiques 
concernées, conférences, etc. - de ce 
point de vue, nous fonctionnons 
comme le CNRS. Sur le plan techno- 
logique, nous avons publié des rap- 
ports de recherche, et nous allons 
continuer dans cette Voie - en colla- . 
boration avec la Direction de la 
Musique qui veut publier des rap- 
ports sur l’ensemble des recherches 
en France. Enfin, chaque année, 
nous réalisons un rapport d'activités 
présentant l’ensemble du travail 
scientifique effectué. 


Propos recueillis par 
Daniel Fournier 


(1) Voir, dans ce même numéro, l’article 
se rapportant à ce sujet. 


(2) La société Ariel Corp., située dans le 
New Jersey 











— ACOUSTIQUE — 


ARCHITECTURALE 


Versant technologique de 
la recherche musicale, 

la connaissance des 
bhénomènes acoutisques 
s'inscrit dans les 
territoires d'investigation 
bDrivilégiés de l'IRCAM. 
Pour pouvoir se déployer 
sur deux axes convergents, 
source/propagation, 

des outils informatiques 
spécifiques ont été 
développés : 

Systèmes d'analyse, 
logiciels de contrôle, 
interfaces de configuration … 


Les deux axes considérés s'illustrent 
par des recherches menées concur- 
remment dans les domaines de 
l'acoustique instrumentale (les élé- 
ments producteurs de phénomènes 
vibratoires), et de l’acoustique archi- 
tecturale (l’environnement de pro- 
pagation des vibrations sonores). 
C'est le second qui retiendra notre 
attention, en raison de l'importance 
des développements informatiques 
qui le sous-tendent. 


C'est, en effet, dans cette direction 
que les développements logiciels les 
plus importants ont été accomplis - et 
actuellement poursuivis - dans le 
cadre d’une recherche portant sur la 
maîtrise de “l'effet de salle”. S'éten- 
dant au-delà des limites propres de 
l'étude des composants acoustiques 
des lieux de diffusion du son (salles 
de spectacles, amphithéâtres, etc.), 
elle s’étire aussi bien en amont, afin 
d'explorer les composantes psycho- 


logiques de l'appréciation des 


volumes acoustiques (validation 
perceptive de la caractérisation 
objective), qu'en aval, en cernant ses 
terrains d'application (commande 
interactive de l'Espace de Projection 
de l'IRCAM). Ces études mettent à 
contribution les techniques d’analy- 
se et de traitement du signal tout 


autant que le formalisme mathéma- 
tique de l’acoustique physique. 


L'équipe formée à l'IRCAM s'est 
successivement penchée sur les pro- 
blèmes de : 

e métrologie acoustique, et modéli- 
sation paramétrique ; 

e perception auditive ; 

e techniques informatiques appliquées 
à l’acoustique prévisionnelle. 

Ce dernier sujet est d’ailleurs en 
pleine progression et constitue 
l'essentiel des travaux en cours, 
avec, pour perspective d’applica- 
tion, la production artificielle de 
champs sonores. 


Sources virtuelles 

Cette étude aborde le problème de la 
restitution des phénomènes perceptifs 
liés à la diffusion d’une source sonore 
dans une salle. En relevant les para- 
mètres objectifs déterminés par les 
études antérieures, le contrôle s'exerce 
sur deux facteurs primordiaux : 

e l’onde directe propagée (neutralité 
de la fonction de transfert du trans- 
ducteur diffusant l’onde directe) ; 

e le champ réverbéré (identité de 
l'indice de directivité du dispositif 
de diffusion). 
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Les systèmes expérimentaux élabo- 
rés (jeux de haut-parleurs, baffle 
dodécaédrique) sont dotés d'élé- 
ments de traitement du signal (fil- 
trage, matriçage, etc.) afin de consti- 
tuer un outil de simulation puissant. 


Aide à la conception architecturale 
Sur le plan informatique, c'est dans 
cette direction que les efforts les 
plus importants sont effectués, afin 
de réaliser des outils logiciels utili- 
sables par les architectes dans leur 
travail de conception des lieux 
d'écoute. L’expertise acquise par le 
laboratoire a guidé le choix des 
méthodes informatiques utilisées. 
Elle a permis de dégager deux 
grandes options stratégiques : 

e simulation de la propagation 
acoustique ; 

e recherche de procédures d’inver- 
sion, en vue de modifications appor- 
tées à un projet architectural. 


Les développements se sont donc 
concentrés sur la mise au point de 
trois types d'outils, considérant : 

e la mesure des paramètres acoustiques ; 
e le diagnostic acoustique ; 

e l’aide à la conception des lieux d'écoute. 











Mesures in situ 

I a été nécessaire de corriger et com- 
pléter les informations fournies par 
les fabricants de matériaux de 
construction, dont les valeurs 
(approximatives, voire fausses !) 
sont utilisées dans les programmes 
de simulation. Une base des 
mesures des critères acoustiques de 
l'Espace de Projection, servant de 
lieu expérimental, a tout d'abord été 
constituée. Une confrontation de ces 
données avec une étude théorique et 


expérimentale à permis d'affiner les 
valeurs utilisables. 


Critères du diagnostic acoustique 

L'achèvement, en 1989, des travaux 
de recherche sur la perception auditi- 
ve de la qualité acoustique des salles 
a fourni des résultats permettant 
d'établir des relations structurées 
entre critères acoustiques mesurables 
et facteurs perceptifs objectifs. L'inter- 
façage de ces nouveaux critères 
d'évaluation a été intégré au projet. 


Conception des lieux d'écoute 
Après examen systématique des 
applicatifs disponibles, un environ- 
nement logiciel complet a “été 
construit, afin de servir de base aux 
travaux de recherche sur les procé- 
dures d'inversion. 


Environnement logiciel 

Le développement des interfaces 
homme/machine des outils utilisés a 
été confié à la société APIA, qui a 
adapté ses programmes existants. 
Tournant sur PC et Windows 2, ils 
servent d'interface d'E/S, et permet- 
tent de transmettre les données expé- 
rimentales aux programmes de simu- 
lation, sous forme de fichiers ASCIT. 
La normalisation de l'ensemble de 
ces programmes, tournant primitive- 
ment dans des environnements hété- 
rogènes (PC, Vax 780, Fortran, Pascal, 
etc.), a été opérée, dans le souci d'une 
meilleure portabilité. Le langage Ca 
ainsi été choisi comme support de 
développement. 


Le système ainsi élaboré est architec- 
turé de manière à rendre possible 
l’évolution des éléments de la simu- 
lation en modularisant les diffé- 
rentes hypothèses acoustiques et 
fonctions. Quatre modules complé- 
mentaires sont mis en oeuvre : 

e “son direct/diffraction réflexion /cônes"’ 
se base sur l'hypothèse acoustique de 
réflexion spéculaire et décrit, en fonc- 


tion du temps, la puissance captée par 
la surface et par les récepteurs distri- 
bués dans l'enceinte du lieu d'écoute ; 

e “diffus direct” récupère les don- 
nées captées, et commande la propa- 
gation de la puissance acoustique 
non-réfléchie spéculairement ; 

e “diffus indirect” fournit une des- 
cription sous forme matricielle du 
champ réverbéré, indépendamment 
de l'excitation de la salle ; 

e “intégration” opère la synthèse des 
informations calculées par les trois 
programmes précédents, et construit 
les courbes énergie/temps des 
récepteurs utilisés pour le diagnostic 
acoustique. 


Des logiciels existants ont également 
été adaptés à l’expérimentation de 
l'Espace de Projection, et leur évalua- 
tion a été effectuée dans un cadre 
d'étude concret : la salle de concert de 
la Cité de la Musique (Paris-La Vilette). 


Commande perceptive 

de l'Espace de Projection 

Depuis sa création, l'Espace de Pro- 
jection est doté d’un logiciel de 
configuration spatiale de ses parois, 
agissant sur le positionnement des 
périactes, ceci afin de pouvoir modi- 
fier la qualité acoustique de la salle. 
Il reste cependant délicat à utiliser 
pour des non-spécialistes, car il pré- 
suppose une connaissance approfon- 
die des relations entre le positionne- 
ment des périactes et la réponse 
acoustique de la salle. Un program- 
me est donc développé (en collabo- 
ration avec le Laboratoire acoustique 
de l’EDF) afin de permettre au “pro- 
fane” (acousticien, régisseur, inter- 
prète, compositeur) de configurer 
aisément cet espace acoustique. 


Interface 

facteurs perceptifs/critères objectifs 
L'interface du logiciel rend possible 
l'utilisation de critères objectifs (per- 
tinents pour les acousticiens), qui 
décrivent la qualité acoustique de la 
salle, évaluée par l'utilisateur au tra- 
vers de facteurs perceptifs. En 
retour, le contrôle des données spa- 
tiales de la salle permet d'établir une 
correspondance avec cette évalua- 
tion auditive. L'utilisateur dispose 
d'un tableau de bord décomposé en 
deux domaines d'interaction, pré- 
sentant la liste des critères objectifs 
et des facteurs perceptifs, chacun 
assorti des paramètres qui lui 
conviennent. La gestion des rela- 
tions partielles ou univoques entre 
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facteurs perceptifs et critères objec- 
tifs est opérée par des boîtes conte- 
nant des tables de conversion. 


Processus d'inversion 

La modification d'un paramètre d'un 
des domaines provoque les conver- 
sions nécessaires dans le domaine 
complémentaire, et la propagation à 
tous les autres paramètres (suivant 
un ordre prédéfini), des contraintes 
objectives qui peuvent s'attacher à 
chaque facteur. Une fois la validation 
du choix de l'utilisateur effectuée, les 
données calculées sont transmises au 
programme d’automatisation de la 
configuration. 


Ce processus pose des problèmes 
délicats à résoudre. La détermination 
d’une fonctionnelle, représentant glo- 
balement le comportement acous- 
tique de l'Espace de Projection, a été 
rendu possible en construisant une 
base de fonctions, répertoriant les 
données spatiales pour lesquelles la 
valeur de chaque critère peut être 
décrite sous forme de combinaison 
linéaire. La matrice de passage qui 
découle de cette formalisation utilise 
la base contenant les mesures effec- 
tuées dans l'Espace de Projection. 
Pour un ensemble rassemblant confi- 
gurations spatiales et valeurs des cri- 
tères acoustiques correspondants, un 
programme effectue une estimation 
de la meilleure description des cri- 
tères objectifs. Lorsqu'une approxi- 
mation convenable a été trouvée, : 
l'exploitation de la matrice inverse, 
calculée par inversion de la matrice 
de passage suivant une procédure ité- 
rative optimisée, permet d'aboutir à. 
la configuration spatiale recherchée. 


Il est clair que l’ensemble de ces 
recherches mettent en oeuvre des 
ressources expérimentales sophisti- 
quées, aussi bien sur le plan formel 
que matériel. L'importance des tra- 
vaux d’acoustique réalisés à 
l'IRCAM, dont l'Espace de Projec- 
tion constitue le lieu privilégié 
d'expérimentation, peut d'ailleurs 
être soulignée par l'intérêt que lui 
portent plusieurs sociétés indus- 
trielles, parmi lesquelles on note la 
participation active du Laboratoire 
d’acoustique de l’'EDF, ou des Labo- : 
ratoires Bell d'AT&T. 


Daniel Fournier 








LA STATION MUSICALE 


Point d’aboutissement d'un 
développement de près de 
deux années, la station 
musicale IRCAM 
représentera, à la fin de 
l’année 90, l'outil 
audionumérique le plus 
sophistiqué présent sur le 
marché micro-informatique. 
Deux champs d'application 
complémentaires ont guidé 
sa conception : 

la composition musicale 
assistée par ordinateur et 
le traitement du signal 
audionumérique. 


En lançant le projet de station musi- 
cale, l'IRCAM a souhaité répondre, 
non seulement à des besoins 
internes, mais également aux exi- 
gences du marché de la micro-infor- 
matique musicale, lequel doit faire 
face à des impératifs de puissance et 
de complexité chaque jour plus 
pressants. La sophistication des 
matériels qui équipent les studios 
audionumériques nécessite en effet 
des organes de contrôle dotés de 
capacités se situant, de plus en plus 
fréquemment, au-delà de celles qui 
sont offertes par les systèmes utili- 
sés actuellement. 


ARCHITECTURE 


Les impératifs auxquels l’architectu- 
re de la station musicale de l'TRCAM 
doit faire face sont multiples : 

e puissance de calcul élevée, afin de 
procéder au traitement des événe- 


IRCAM 


ments et des signaux d'un système 
d'exécution musical complexe ; 

e système d'exploitation temps réel, 
afin de correspondre à l’environne- 
ment de travail habituel du musi- 
cien, et multiprocesseur, afin de 
gérer la multiplicité des cartes, 
nécessaire pour obtenir la puissance 
de traitement recherchée ; 

e périphériques de contrôle suppor- 
tant des interfaces interactives pour 
la visualisation des programmes de 
commande, l'enregistrement et l'édi- 
tion de leurs exécutions. 


dard. Chaque carte est déjà un systè- 
me multiprocesseur en soi, en juxta- 
posant : 

e 2 microprocesseurs Intel 1860, pour 
le traitement des signaux et la ges- 
tion des événements temps réel ; 

e1 microprocesseur Motorola 
DSP56001, pour la gestion des E/S de 
la carte (MIDI et audionumérique). 
L'échange de données entre les micro- 
processeurs est assuré par un commu- 
tateur à barres croisées. La carte com- 
porte également une RAM locale de 8 
Mo (extensible jusqu’à 32 Mo). Une 


la musique (traitement de signal et gesti 


e contexte d’un con 


. “Cette configuration est. 
pement différents - celui 
triser. Ordinairement, la 





Multiprocesseur 

Le principe retenu a été celui de la 
carte d'extension insérable dans le 
fond de panier d’une machine stan- 
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ten 











carte annexe est prévue pour fournir 4 
canaux d'E/S audio-analogiques. 

Le système atteint un second niveau 
multiprocesseur par la multiplica- 


| 


dire | système à à base de carte insérée dans 

Ô résente sur le. marché. Nous ne souhaitions pas 

stème complet indépendant, à cause des problèmes de 

t Pis are de vendre une ee carte 

destinée à un système existant. 

NON “Cette aPf roche a posé. des nb Ubtes sur L cho du do hôte. 
ou avons besoin d'un système possédant une bande passante de disque 
relativement élevée, permettant à l'hôte de tourner pendant les transferts 
DMA sur disque. Il faut pouvoir enregistrer sur disque (ou reproduire) 
jusqu'à quatre canaux audionumériques ‘en temps réel. Le bus système doit 

être performant et le ormat de la carte Saifeammen pa a 





ce qui n'est pas Ma: les cartes JP P an don petites, 
alors que celles du NeXT mesure 1 pied carré ; le bus est un NuBus amélio- 
ré par un mode rafale” assez performant - en théorie, le taux de transfert 
atteint 100 Mo/s, mais en réalité à peu près le Hiers, ce qui reste très supé- 
rieur à tous les PC. C’est donc le seul système qui possède ces qualités 
dans une configuration relativement bon marché, meilleure, en tous cas 
que les serveurs Unix. 

‘J'ajouterais qu'un gros effort a été accompli sur l'interface, pour di 
ser, SUr un système Unix, une boîte à outils comparable à celle à du Mac. À 
mon avis, il s’agit d'une interface utilisateur plus avancée que celles des 
Istandards actuels du marché, plus pensée et complète qu'X Window-Motif. 








Malgré tout, le fait ques ce ne on de un standard nous pose an Re 


— sa de RUES 


tion des cartes à l’intérieur de 
chaque machine, et un troisième par 
l’interconnexion des machines entre 
elles, au moyen de liaisons paral- 
lèles à haut débit. La puissance glo- 
bale du système est donc largement 
adaptable aux situations les plus 
complexes. 


| “En plus des deux processeurs 
1860, nous avons placé sur la carte 
lun processeur Motorola DSP56000, 
Imais sans fournir cependant 
d'accès à sa programmation. ll sert 
surtout de processeur d'E/S. 

| “Il a été choisi car il possède de 
bons ports sériels, qui peuvent, par 
programmation, fonctionner à des 
vitesses différentes. La carte dispo- 
se ainsi de 4 canaux d'E/S audio- 
numériques - ce qui est raison- 
Inable, même si l'on veut avoir 
[toujours plus - et de ports série 
plus lents pour les E/S MIDI. Et 
comme il reste un peu de puissan- 
ce, nous avons intégré le logiciel 
de contrôle DMA pour gérer les 
communications entre les 1860 
a sur différentes cartes." 


Eric Lindemann 








a 


Machine hôte 

L'interfaçage des cartes de traite- 
ment de signal avec l'utilisateur du 
système s'articule autour d'un systè- 
me hôte. Celui-ci doit être capable 
de performances élevées dans plu- 
sieurs domaines à la fois : 

e transfert de données, pour les E/S 
(bus système à haut débit) ; 

e graphisme (interface homme/machi- 
ne), pour l'interactivité ; 

e environnement de développement, 
pour la programmation d'applications. 


C’est l'ordinateur NeXT qui a été fina- 
lement choisi en regard de ses qualités 
évidentes sur chacun de ces points : 
e 4 emplacements sur le fond de 
panier (dont un est occupé par la 
carte-mère); 
e bus système de technologie 
CMOS, à la norme IEEE 1196 
(NuBus), mais dont la vitesse de 
transfert a été doublée (100 Mo/s) 
par un mode rafale (burst mode) ; 
e système de fenêtrage très perfor- 
mant (Display Postscript), développé, 
dans l'esprit de X Window System, à 
partir du langage de description de 
page d'Adobe System ; 
e système d'exploitation compatible 
avec UNIX (basé sur le noyau Mach), 
offrant une vaste gamme d'outils de 
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développement (langages de pro- 
grammation par objets, etc.). 


EXÉCUTIF TEMPS RÉEL 


Le caractère des opérations effec- 
tuées en traitement de signal, sou- 
mises aux impératifs du temps réel, 
a induit le développement d'un 
noyau temps réel spécifique, nommé 
IMRTX, adapté au microprocesseur 
i860. Il constitue une couche supé- 
rieure au noyau de base CPOS 
(Coprocessor Operating System) qui 
fournit : 

e les primitives de communication 
entre le système de traitement multi- 
processeur (1860) et l'ordinateur hôte 
(NeXT) ; 

e les fonctions de gestion de la 
mémoire (protection, allocation, etc.) ; 


‘e les primitives de mise au point 


(debugeing). 


Cet exécutif s'interface avec le systè- 
me d'exploitation du NeXT par un 
mécanisme d'échange de messages. 
Ainsi peut s'effectuer : 

e le chargement de modules de pro- 
gramme ; 

e l'activation d'objets (instanciation) ; 
e la communication d'arguments 
(entrée/sortie) lors de l'exécution 
des méthodes appliquées aux objets ; 
e l'exécution, à la requête du 
noyau IMRTX, de procédures 
UNIX (création, ouverture /ferme- 
ture, écriture/lecture de fichiers de 
données, etc.). 


Un mécanisme de chargement dyna- 
mique permet, par ailleurs, d'inté- 
grer, au sein de l'image du système 
en cours d'exécution, de nouvelles 
définitions d'objets. 


IMRTX met en oeuvre deux types de 
mécanismes fondamentaux, essen- 
tiels pour l’accomplissement des 
tâches qui lui sont assignées : la prise 
en compte, en temps réel, des événe- 
ments survenant dans le cadre de 
l'exécution, et le traitement de flots 
de données à caractère synchrone. 


Gestion généralisée d'événements 

Le mécanisme d'interruption est uti- 
lisé pour prendre en compte les évé- 
nements déclenchés, de manière 
aléatoire, par l’environnement inter- 
actif (sollicitation de l'utilisateur, 
intervention d'un temporisateur, 
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etc.). Le traitement de ce type 
d'interruption peut impliquer des 
actions complexes : 

e acquisition de ressources (gestion REA RE AS 
de la mémoire, accès disque, etc.) ; ramme passif qui € 
e activation/désactivation d'objets as d' interruption 
(Gnitialisation/libération) ; 

e tris, recherche dans des listes ou 
tables de données ; etc. 


Afin d’uniformiser la programma- 
tion du système, le code des gestion- 
naires d'interruption adopte une 
formalisation de type objet : les évé- 
nements sont des messages expédiés 
à des objets, lesquels sont à leur tour 
susceptibles d’expédier des mes- : NN ements de typ < 
sages à d’autres objets (eux-mêmes y | SR ie 
compris). | ï 





adéquat. 


Traitements synchrones 

Les opérations typiques effectuées 
en traitement de signal portent en 
majorité sur l'établissement et la 
transformation ordonnée de flots de 
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données : les composantes du signal 
à analyser/modifier, sur une base 
temporelle régulière (dont la fré- 
quence est déterministe). Ainsi le 
déclenchement d'une opération peut 
comporter des calculs portant sur les 
millions de données composant un 
échantillon sonore. Dans la plupart 
des cas, les calculs sont répartis sur 
plusieurs microprocesseurs 1860 tra- 
vaillant en parallèle. Ils constituent 
les noeuds d'un réseau de traitement 
de flots de données synchrones 
(SDN : Synchronous Dataflow Net- 
work). Les algorithmes des routines 
qui implémentent ces traitements 
adoptent, le plus souvent, des struc- 
tures relativement simples et aisé- 
ment parallélisables (peu d’opéra- 
tions conditionnelles, opérations 
vectorielles, etc.), dont le temps 
d'exécution est prévisible. Ces carac- 
tères facilitent la mise en correspon- 
dance, de manière optimale, de la 
structure des SDN avec l'architecture 
multiprocesseur du système. 


Cohérence temporelle 

Les événements externes sont 
estampés par un processus de data- 
tion qui détermine, par rapport à un 
moment de référence, le moment 
précis de leur occurrence. Cet estam- 
page est transmis tout au long de la 
chaîne de communication entre 
objets, activée lors du traitement 
d'un tel événement. Or, la structure 
(pipeline) de la transmission des 
messages entre les noeuds du 
réseau, lors de la parallélisation des 
calculs déclenchés par cet événe- 
ment, entraîne des délais qui doi- 
vent être pris en compte. Le graphe 
d'un SDN est donc pondéré par ces 
délais afin que, quelle que soit sa 
topologie, la modification d'un 
noeud (modification du coefficient 
d'un filtre, par exemple) ne détruise 
pas la cohérence de l’ensemble du 
traitement à opérer. 

Une constante du système est asso- 
ciée à la durée du traitement d'un 
événement. Correspondant au 
temps de diffusion écoulé entre 
l'occurrence de celui-ci et le moment 
où la frontière du SDN est atteinte, 
elle est configurable par l'utilisateur 
dans une plage allant de 1: à 10 ms. 
Les messages parvenant au SDN en- 
deçà de la valeur fixée sont retardés, 
alors que ceux qui parviennent au- 
delà sont pris en compte dès que les 
traitements en cours le permettent. 
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Grâce au positionnement d’un indi- 
cateur, l'utilisateur est averti de cette 
acceptation. 


SDN concurrents 

L'activation de chaque SDN étant 
autonome, on peut obtenir un recou- 
vrement partiel ou total de plusieurs 
SDN, dont les moments d'activation 
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et de terminaison s’échelonnent dans 
le temps. Chaque SDN est affecté à 
une “fenêtre” de potentiel de calcul 
représentant une fraction de la puis- 
sance de calcul globale du système. IL 
est même possible de faire coexister 
plusieurs SDN hétérogènes dans une 
même fenêtre. Lors de l'allocation 
d’un SDN à une fenêtre, la mémoire 





LE MICROPROCESSEUR INTEL 1860 


Présenté par Intel, lors de son lance- 
ment au début de l’année 89, 


comme microprocesseur de type 


RISC destiné à être employé comme 
unité centrale de traitement dans un 
système informatique, la mise en 
situation du i860 a montré qu'il 
devait être plutôt rattaché à la caté- 


gorie des coprocesseurs de calculs 


phiques. C’est, de fait, la position 
qu'il occupe dans le système déve- 
loppé à l'IRCAM, où ses capacités 
sont utilisées de façon optimale. 


phiques. C'est et traitements gra- 


L'architecture fonctionnelle du 1860 
repose sur trois unités de calcul indé- 
pendantes, opérant en parallèle : 
e unité de calculs entiers (IU : 
Integer Unit) ; 
e unité de calculs flottants (FPU : 
Floating Point Vector Unit) ; 
e unité de traitements graphiques 
(GU : Graphics Unit). 
Trois autres unités fonctionnelles, 
dédiées aux transferts des données 
complètent ce groupe de calcul : 
e unité de gestion de mémoire vir- 
tuelle et d’interfaçage du bus 
(MMU : Memory Management Unit), 
assurant une bande passante sur le 
bus de 160 Mo/s; 
e caches d'interfaçage entre le 
microprocesseur et la mémoire cen- 
trale (suivant le schéma de Har- 
vard), assurant une bande passante 
totale de 900 Mo/s (320 + 640 Mo/s, 
version 40 MHz) : 

+ mémoire d'instructions (4 Ko) - 
chemin d'accès de 64 bits ; 

+ mémoire de données (8 Ko) - che- 
min d'accès de 128 bits. 


Le i860 est pourvu d'un fichier de 
registres comportant : 

e 32 registres (32 bits) utilisés 
par l'IU ; 

e 16 registres (64 bits) utilisés par la 
FPU et la GU ; 

e 4 registres spéciaux (64 bits) utili- 
sés par la FPU et la GU ; 

e 6 registres de contrôle/état (32 bits) ; 
e 1 registre pointeur d'instruction 
(32 bits). 


Le i860 est échantillonné en deux 
versions, correspondant à des fré- 
quences d'horloge de 33 et 40 MHZ. 
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Unité entière 
L'IU comporte un noyau de type 
RISC (jeu réduit de 38 instructions), 
véritable centre nerveux du i860, 
prenant en charge : 
e l'extraction des instructions desti- 
nées à :| 

+ l'IU elle-même ; 

+ la FPU; 
e le décodage et l'exécution des ins- 
tructions de l'IU : 

+ arithmétiques ; 

+ logiques ; 

+ branchements ; 

+ trappes ; 
e le chargement/rangement des 
opérandes (IU et FPU) ; 
e le calcul des adresses fournies 
simultanément aux caches (instruc- 
tions/données) ; 
e l'exécution des instructions de 
rangement de pixels, dans les cal- 
culs d'élimination de surface cachée 
effectués par la GU ; 
e le positionnement de l’état du pro-- 
cesseur (registres de contrôle). 


L'utilisation des registres est optimisée 
par la présence d’un registre de mar- 
quage (scorebonrd) des registres occupés 
(destinataires d’un calcul en cours). 


L'IU travaille à un rythme d'exécu- 
tion d’une instruction par cycle. 
Performance : 

80 KDhrystones v2.1 (33 MIPS VAX),. 


Unité flottante 

La FPU accepte un jeu de 18 instruc- 
tions, opérant sur des données 
conformes au standard IEEE-754 
(simple et double précisions - 
SP/DP). Elle se décompose en deux 
modules, capables de travailler en 
parallèle, entre elles et avec l’IU : 

e additionneur ; 

e multiplicateur. 

Ces deux modules découpent l'exé- 
cution des instructions en plusieurs 
étapes (pipeline à 3 étages). Toute- 
fois, il est possible de forcer l’exécu- 
tion de certaines opérations en 
mode “continu”. 


Le rythme d'exécution s'établit à : 

e 3 cycles (additions SP/DP, multi- 
plication SP) ; 

e 4 cycles (multiplication DP). 





Il faut préciser que la FPU ne com- 
porte pas d'instruction de division. 
Performances : 

24 MWhetstones 

10 MFLOPS Linpack 

FFT(1024 points) en 1 ms. 


Unité graphique 

La GU est articulée autour d’un jeu 
comportant 12 instructions permet- 
tant d’implémenter les primitives 
graphiques du type : 

e élimination de surface cachée ; 

e interpolation de distance ; 

e ombrage 3D (interpolation de 
l'intensité des pixels) - 48.000 poly- 
gones ombrés/s (avec contrôle de 
Z-buffer). 

Ce jeu inclut, entre autre, des ins- 
tructions arithmétiques (addition et 
soustraction) portant sur des opé- 
randes entiers de 64 bits. 


Comme dans la FPU, les instructions 
peuvent passer (ou non) par les 
étages d’un pipeline. La GU fait 
d’ailleurs usage des registres géné- 
raux de la FPU pour ses calculs, 
ainsi que d’un de ses registres spé- 
ciaux (special merge register). Elle 
peut travailler en parallèle avec l'IU. 


Unité de gestion mémoire 
Adoptant le principe de mémoire 
paginée (taille de page fixé à 4 Ko), 
elle fonctionne par demande de 
page. La répartition des pages 
s'effectue au travers de deux 
niveaux de translation, dans un 
espace virtuel de 4 Go. La base de la 
table des pages est pointée par un 
registre de contrôle (Directory Base 
Register). L'opération de translation 
d'adresse virtuelle en adresse phy- 
sique fait usage d'un tampon de 
translation à 64 entrées et s'effectue 
en un cycle, en parallèle avec l'accès 
des caches d’instructions/données. 


Le microprocesseur 1860 a fait 
l’objet d'une définition d'interface 
d'application binaire (ABI : Applica- 

tion Binary Interface). Celle-ci garan- 
tit la compatibilité des systèmes qui 
l'utilisent dans le cadre d'UNIX 5ys- 
tem V révision 4. 
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conventionnels sont optimisés 
pour la gestion d'événements dans 
des systèmes acceptant de nom- 
breuses interruptions, ils ne le sont 
pas suffisamment en ce qui concer- 
ne le traitement de signal. Sur les 
processeurs habituels, le temps de 
prise en compte des interruptions, 
‘pour un bon noyau temps réel, est 
d'environ 20 à 30 microsecondes. 
“Or, nous avons besoin de des- 
cendre en-dessous d’une microse- 
conde, ce qui implique de traiter 
l'interruption de l'horloge du trai- 
tement de signal très efficacement : 
presque sans (ou avec très peu de) 
délai au niveau système - ‘dans ce 
cas particulier d'interruption effec- 
tuant le traitement d'échantillons 
audionumériques (tous les autres 
événements étant récupérés sur 
cette interruption dans la liste des 
messages). 
“Nous n'avons pas trouvé sur 
le marché ce que dont nous avions 
besoin : un exécutif temps réel 
mélangeant traitement de signal et 
gestion d'événements, compatible, 
de surcroit, avec le monde Unix, 
ceci afin de pouvoir, dans un 
contexte de recherche, lancer un 
programme exécutant des appels 
système (fork, sbreak, fclose, etc.). 
Nous avons donc décidé de tracer 
notre propre chemin : construire 
un système d'exploitation temps 
réel tournant sur les processeurs 
Intel 1860, système multitâche, 
multiprocesseur, optimisé pour le 
temps réel.” 





Eric Lindemann 


nécessaire à son fonctionnement est 
réservée et initialisée - mais le SDN 
n’est toutefois pas encore activé. Si la 
puissance de calcul correspondant à 
une fenêtre le permet, plusieurs de 
ces SDN peuvent être activés concur- 
remment. Ce qui n'empêche nulle- 
ment que plusieurs fenêtres soient 
actives simultanément. En cas de 
conflit provoqué par le dépassement 
de la capacité de calcul du système, 
IMRTX possède les mécanismes qui 


lui permettent de “préempter” un ou. 


plusieurs SDN afin d'accorder la 
priorité à un SDN plus important. 


ENVIRONNEMENT LOGICIEL 
Pour pouvoir répondre, non seule- 


ment aux besoins internes de 
l'IRCAM (développements prévus 


dans le cadre des activités pédago- 
giques, applications entreprisent 
pour la réalisation de commandes 
institutionnelles, etc.), mais aussi à 
ceux d2 sociétés logicielles souhai- 
tant créer des applicatifs destinés au 
marché scientifique ou artistique, le 
projet de station musicale incorpore 
plusieurs couches logicielles d’assis- 
tance au développement. 


Animal 

Pour les programmes élaborés dans 
le contexte de l'exécution temps réel, 
l'interface homme/machine repré- 
sente une des parties les plus impor- 
tantes des efforts de programma- 
tion. Animal est une couche 
logicielle ayant pour but de faciliter 
la mise au point des interfaces de 
ces programmes, en proposant : 

e des objets graphiques de base, 
adaptés à la représentation et au 
contrôle de données évoluant dans 
un contexte dynamique temps réel ; 
e une organisation et une représen- 
tation hiérarchique des objets conte- 
nant les informations à traiter ; 

e des espaces de travail définissables 
par l'utilisateur, permettant la mani- 
pulation de collections d’entités gra- 
phiques ; 

e la définition de relations entre objets, 
sous forme de connexions graphiques ; 
e un interfaçage simplifié avec un 
environnement de programmation 
évolué (langage de haut niveau). 
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Animal constitue en fait un arbre de 
fenêtres. Chacune d'elles peut conte- 
nir un ou plusieurs “graphiques” 
comportant un nombre quelconque 
de parties mobiles. Chacune donne 
accès à sa propre fenêtre subordon- 
née. Un “animal” correspond à cet 
assemblage d’un graphique et de sa 
fenêtre subordonnée, soit, en terme 
d'interface, aux positions et dimen- 
sions des parties mobiles du gra- 
phique, et aux pointeurs sur les ani- 
maux définis dans la fenêtre 
subordonnée. À chaque animal sont 
attachées des “méthodes” (fonction, 
dans la terminologie de la program- 
mation par objets) qui décrivent les 
actions (les messages) auxquelles il 
répond. Le programme Animal étant 
conçu pour fonctionner sur une archi- 
tecture multiprocesseur, les méthodes 
affectant un animal peuvent s'exécu- 
ter sur des processeurs différents de 
celui qui exécute la tâche du gra- 
phique. Le langage C++ est utilisé 
pour réaliser leur implémentation : 
dans la formalisation de ce langage, 
la définition d’un animal correspond 
tout simplement à une classe. 

Grâce à la formalisation adoptée, il 
est aisé de réaliser en plus de la sau- 
vegarde sur disque de la hiérarchie 
graphique complète d’une applica- 
tion, la sauvegarde individuelle 
d’un graphique, afin de constituer 
des bibliothèques d'animaux (sic) 
réutilisables. 





| 





LI 


Ce logiciel appartient à une généra- 
tion d'outils de composition musi- 
cale issue des travaux menés ces 
dernières années à l'IRCAM. Appa- 
renté aux outils de programmation 
graphiques utilisés en génie logiciel, 
il utilise le formalisme d'objet pour 
décrire les matériaux sonores et 
leurs transformations. 


Avec le logiciel Max, l'exécution 
musicale consiste à mettre en 
oeuvre un ensemble d'objets établis 
par le compositeur, dont les caracté- 
ristiques et le comportement sont 
décrits sous forme de classes (on 
peut assimiler celles-ci à des 
“moules” servant à créer les objets 
nécessaires à l’élaboration du maté- 
riau musical). Afin de doter ce 
modèle de capacités évolutives, le 
système organise les interactions 
entre les objets : l'échange des infor- 
mations repose sur des mécanismes 
de transmission de messages, indi- 
quant les actions à exécuter et les 
arguments qui s’y rapportent. 


Les principales classes réunies dans 
Max sont du type: 

e fenêtre ; 

e éditeur de texte; 

e éditeur de tables de fonctions ; 

e composant élémentaire (patcher) ; 
e sequenceur: 

Des fonctions systèmes de base 
prennent en charge la temporisation 
des événements, les E/S MIDI, la 
gestion de la mémoire, et la trans- 
mission‘des messages. 


Une extension du programme Max 
(initialement appelée Patcher) per- 
met de réaliser en temps réel la 
configuration et l'activation des 
objets produits dans l’environne- 
ment Max, au travers d'une repré- 
sentation entièrement graphique. 
Chaque objet dispose de points 
d'entrée (inlets) et de sortie (outlets) 
qui permettent de figurer, par des 
liaisons linéaires, les relations qui 
l'unissent aux autres objets. 








MAX 


L'ordonnance de l'activation des 
objets prend ainsi l’apparence d’un 
diagramme de flot de données, 
comparable à ceux que produisent, 
en génie logiciel, les méthodologies 
d'analyse structurée. Le système est 
hiérarchique et permet l’abstraction, 
sous la forme d’un objet de niveau 
supérieur (pourvu de ses propres 
inlets et outlets), d'un groupe 
d'objets ordonné. 


Trois types fonctionnels catégorisent 
les objets de Max, représentés gra- 
phiquement sous forme de boîtes : 

e contrôles (boutons de déclenche- 
ment, potentiomètres linéaires, indi- 
cateurs de valeur numérique, etc.); 
e E/S (les inlets et outlets d'un objet 
de niveau hiérarchique supérieur); 

e textes (messages, commentaires, 
création d'objet). 


Le comportement des objets est réglé 
par un ensemble de messages, 
l'équivalent, en programmation par 
objets, des “sélecteurs” correspon- 
dant aux “méthodes” définies pour 
chaque classe d'objets. Ces messages 
sont diffusés le long des liens établis 
entre les différents objets. On trouve 
des messages standards tels que : 

e bang (déclencheur) ; 

e fix (indicateur de nombre en vir- 
gule fixe) ; 

e float (indicateur de nombre en vir- 
gule flottante). 


D'autres types d'objets servent pour : 
e les opérations mathématiques 
(opérations de base, comparaisons, 
opérations trigonométriques) ; 

e les fonctions de filtrage (sélec- 
tions sur valeur non nulle ou 
déterminée, etc.) ; 

e les traitements des informations 
MIDI (séquenceur, suiveur de parti- 
tion, conversions de flots de don- 
nées MIDI) ; 

e les fonctions de temporisation 
(retard, métronome, décomptage, 
analyse de tempo, etc.) ; 

e des fonctions diverses (contrôles 


Prochaïnement dans le cahier Technologies Avancées : 
Architectures et langages du parallèlisme, 


Réseaux neuronaux.… 
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de messages, de séquencement, etc.). 
Max constitue un outil interactif 
parfaitement adapté à la gestion de 
l'exécution en temps réel, dont la 
puissance et la souplesse permettent 
l’utilisation dans des environne- 
ments et dans le cadre de styles 
créatifs très variés. Il facilite la 
représentation des événements 
musicaux et leurs apparitions sous 
l’aspect de “partition virtuelle”, 
dans le contexte d’un dialogue entre 
instrumentiste/ordinateur. Celui-ci 
peut, par exemple, prendre la forme 
de l'exécution d’une partie autono- 
me, calculée, en temps réel, en 
appliquant des fonctions statistiques 
(chaînes markoviennes) à l'analyse 
du jeu d’un instrumentiste. 


Le compositeur Philippe Manoury a 
récemment mis ce logiciel en situa- 
tion, dans une pièce (La Partition du 

ciel et de l'enfer) réunissant une flûte 
MIDI (1), un piano MIDI, le système 
4X, et une formation instrumentale. 
Elle met en oeuvre une méthode de 
synthèse nouvelle, créée et implé- 
mantée par Miller Puckette dans 
l’environnement Max, qui permet 
de contrôler la fréquence, les com- 
posantes spectrales du timbre, les 
composantes bruités, et le vibrato 
d'un son... 


Le développement de Max, qui se 
poursuit actuellement, ainsi que son 
portage sur la station musicale 
IRCAM (NeXT), doit déboucher sur 
une prochaine commercialisation 
par la firme Opcode, exemple de la 
nouvelle politique de diffusion 
entreprise par l'IRCAM. 


(1) Cet instrument, mis au point à 
l'IRCAM, utilise des capteurs pour la 
transformation des signaux en informa- 
tions codées au format MIDI. 


Références : 
Miller Puckette : The Patcher, 
in Proceedings ICMC, Kôln ‘88. 




























Enregistreur universel 

Recouvrant les fonctionnalités d'un 
enregistreur de données multipiste, ce 
programme effectue l'enregistrement, 
en temps réel, des données pouvant 
correspondre à n'importe quel type de 
formatage (signaux audio, événe- 
ments MIDI, structures définies par 
l'utilisateur, etc.). Plusieurs pistes 
enregistrées sont éditables concurrem- 
ment, chacune d'elles employant 
l'outil adéquat (éditeur de signal, 
d'événements, etc.). 


Editeur de signal 

En mettant en oeuvre les éléments 
fournis par le programme Animal, un 
éditeur spécifique adapté à la repré- 
sentation interactive des signaux 
audio, tant du domaine des fré- 
quences que du temps a été intégré à 
l’environnement de développement. 


Bibliothèque de traitement de signal 

Une bibliothèque de routines de 
traitement de signal optimisées, 
utiles dans le contexte de la station 
musicale, vient compléter les outils 
développés autour de la station de 
l'IRCAM. En plus des fonctions 
mathématiques standards (addition 
et multiplication vectorielles, multi- 


plication matricielle, FFT, filtre de 
second ordre, etc.), elle contient des 
algorithmes nécessaires à la pro- 
grammation des primitives d’un 
système de synthèse sonore infor- 
matisé (oscillateur à table d’interpo- 
lation, etc.). 


ORIENTATIONS 
TECHNOLOGIQUES 


En intégrant délibérément des élé- 
ments situés à la pointe de la techno- 
logie, autant sur le plan matériel que 
logiciel, la station musicale en cours 
de réalisation doit marquer une 
étape importante dans l’évolution de 
la micro-informatique musicale. La 
détermination de ses spécifications a 
été effectuée en tenant compte des 
tendances actuelles du marché infor- 
matique. Ouverture et standardisa- 
tion s'inscrivent, en effet, parmi les 
principaux critères de sélection des 
composantes du projet initial. 


Ouverture, en choisissant la plate- 
forme NeXT. Celle-ci est effective- 
ment reconnue la plate-forme de 
choix pour des développements 
dans le secteur de l’audionumérique 
(rappelons que le NeXT est actuelle- 
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ment le seul micro-ordinateur inté- 
grant un processeur de traitement 
de signal, celui que l'on retrouve 
d’ailleurs sur la carte réalisée par 
l'IRCAM : le DSP56001). L'appari- 
tion de périphériques de ce type ne 
peut que renforcer l'intérêt du systè- 
me proposé. 


Standardisation également, en adop- 
tant le monde UNIX comme envi- 
ronnement du système, le meilleur 
garant de son universalité d'emploi 
et de son évolutivité. 


Ajoutons, avant de conclure, que la 
station musicale de l'IRCAM est 
appelée à suplanter le système 4X, 
en tant que système temps réel prin- 
cipal, ceci à l'horizon 91. À cette 
date, le nouveau système devrait 
entrer en phase de commercialisa- 
tion, par l'entremise de la firme 
américaine Ariel, qui s'illustre tout 
particulièrement par le développe- 
ment d'outils et de périphériques de 
traitement du signal (microphone 
numérique pour le NeXT, cartes et 
outils de développement pour le 
DSP56001, etc.). 


Daniel Fournier 
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CHANT, FORMES : 


… Synthétiser la voix chantée 

… a été l’un des premiers 

… projets mis en chantier à 
l'IRCAM. Très vite, ila 

… donné naissance à une 

… jamille d'outils de base qui 

sert désormais de 

référence. 

Xavier Rodet, Responsable 

du Département Analyse- 

Synthèse et initiateur de 

ces travaux, présente les 

aspects essentiels des 

techniques mises en 

oeuvre. 





CHANT 


Dans la synthèse de la parole à par- 
tir de texte - le thème de recherche 
auquel je consacrais ma thèse d'État 
dans les années 75 -, le principe de 
construction du signal consistait à 
assembler de petites formes d'ondes 
représentant des formants - élé- 
ments essentiels de la reconnaissan- 
ce et de la synthèse de la parole. En 
choisissant cette technique de sépa- 
ration, il devenait possible de mani- 
puler individuellement, et donc de 
faire varier les fréquences des diffé- 
rents formants. 


La qualité du résultat fut très satis- 
faisante, et, fait inattendu, le temps 
de calcul étonnament réduit par rap- 
port aux techniques concurrentes, 
permit d'effectuer une synthèse qua- 
siment en temps réel. Les composi- 
teurs travaillant à l’'IRCAM furent 
particulièrement intéressés par ces 
résultats, notamment parce que, 
pour eux, les formants sont concep- 
tuellement très “parlants” : fréquen- 
ce et timbre repérables, décroissance 
naturelle du son, etc. Ce sont ces 
idées de base que le programme 
Chant a reprises : utiliser une des- 
cription en terme de mode de réso- 
nance, fréquence, taux de décrois- 
sance - en fait la largeur de bande 
du filtre équivalent - et caractériser 
le mode et la vitesse d’excitation. 


Avec Chant, les compositeurs appré- 
cièrent de pouvoir trouver une cor- 
respondance directe entre les para- 
mètres et les faits sonores, au lieu 
d'avoir à manipuler une sinusoïde 
modulée par un index. De plus, 


“ai. 


SYNTHESE 


ayant en fait réalisé la modélisation 
d’un phénomène physique, le princi- 
pe pouvait s'appliquer à la plupart 
des instruments, dont le fonctionne- 
ment est analogue, suivant le modèle 
excitation/résonance. Une seule 
technique de synthèse permettait 
ainsi de synthétiser des trompettes, 
des violons, des cloches, et même 
des choses tout à fait incongrues : 
des cymbales ou des grosses caisses ! 
Avec, en prime, une qualité de son 
bien plus riche, bien plus subtile que 
celle que l’on obtenait avec les autres 
méthodes de synthèse. 


PRINCIPES 


Cette technique des formes d'onde 
formantiques consiste à calculer les 
signaux des modes de résonance, 
chaque mode de résonance étant 
considéré comme un signal indépen- 
dant, à savoir une sinusoïde affectée 
d’une enveloppe décroissante expo- 
nentielle. Pourtant, l'attaque du son 
n'est pas très exactement le point de 
départ de l’exponentielle, mais une 
sorte de lissage initial dont le rôle 
est très important : il représente la 
vigueur de l'attaque - une attaque 
extrêmement brutale est représentée 
par une discontinuité initiale à par- 
tir de l'exponentielle, et, au contrai- 
re, une attaque très douce par un 
lissé très progressif précédant la 
décroissance exponentielle. 


L'implémentation algorithmique et 
la programmation de ce modèle ont 
été facilement effectuées : il a eu, 
entre autres, des implantations sur 
des transputers Inmos, sur des TMS 
320, etc. A l'IRCAM, la première 














version fut réalisée sur un PDP-10 à 
l’aide de SAIL (Stanford Artificial 
Intelligence Language), une extension 
d’Algol (1). 


FORMES 


Mais pour que le son soit utilisable 
musicalement, il est nécessaire 
d'effectuer une bonne description 
des paramètres qui contrôlent le syn- 
thétiseur. Toute une partie de notre 
travail a donc consisté en une acqui- 
sition des paramètres - d’après l'ana- 
lyse des signaux - et en une modéli- 
sation de leur variation au cours du 
temps. Or, ces paramètres sont très 
complexes (dynamisme du jeu, du 
chant, ou de la percussion ; type 
d’articulation : legato, portamento, 
staccato, etc.). En conséquence, les 
programmes d'analyse sont extrême- 
ment délicats à mettre en oeuvre, car 
il faut donner aux utilisateurs des 
leviers de commandes maîtrisables. 


Lorsqu'il a fallu appliquer les règles 
établies et transcrire les algorithmes 
en langage, la notion d'objet s’est 
très vite imposée, ou plus exacte- 
ment de processus, car la notion de 
temps intervenait de façon essentiel- 
le. Un processus est, en fait, une 
entité informatique qui exécute un 
certain algorithme, dans un contexte 
donné, en un temps donné, et pour 
une durée donnée. D'autre part, la 
structure du phénomène musical 
peut être, en grande partie, décrite 
par des hiérarchies, des juxtaposi- 
tions et des parallélismes : phrase 
découpée en motifs, regroupant des 
notes, décomposables en attaque - 
entretien - décroissance, etc. 


Progressivement, nous avons 
construit un système assez complexe 
appelé Formes, regroupant à la fois 
une grande bibliothèque de règles 
(vibrato, portamento, crescendo, 
fonctions élémentaires : passer de 
décibel à amplitude linéaire, de note 


représentée à une échelle logarith- 


mique à la fréquence fondamentale 
correspondante, etc.), la notion de 
processus déclenchant ces règles, 
dans des limites temporelles, et 
toute la structure hiérarchique des 
processus (processus décrivant 
l'attaque, la note, un autre groupant 
plusieurs notes en un motif, etc.). 


IMPLEMENTATION 


La mise en oeuvre interactive de ce 
type de processus fut réalisée en 
Lisp (2) et depuis des années, le sys- 
tème Formes a été utilisé par de 
nombreux compositeurs. Depuis 
1986, la nouvelle génération repré- 
sentée par PréFORM est venue ajou- 
ter une boîte à outils donnant accès 
au temps réel, à un langage à objets 
complet, au graphisme, à l’interacti- 
vité, etc., et suscite des développe- 
ments fondamentaux importants 
(Esquisse, Patcher, etc.). 


Dans la partie analyse, nous repré- 
sentons un signal - voix ou instru- 
ment - par ses caractéristiques 
acoustiques, à l’aide de la biblio- 
thèque UDI (Unified DSP Interface) - 
un protocole de traitement de signal 
que nous avons développé. La partie 
synthèse regroupe des programmes 
spécifiques, réalisant différentes 
techniques de synthèse à partir des 
paramètres d'analyse. La plus 
importante d’entre elles fonctionne 
sur le principe source/filtre - 
comme dans Chant -, car les modes 
de résonance peuvent être vus 
comme la résonance d’un filtre. 


Pour déterminer les paramètres per- 
tinents du signal, nous utilisons 
deux approches complémentaires : 
modèle de production et modèle de 
perception. Les paramètres impor- 
tants sont ceux que nous entendons, 
et il est donc inutile de recomposer 
les hyperfréquences que nous ne 
percevons pas. Parmi les paramètres 
qui ont un effet direct sur notre 
écoute, l'enveloppe du spectre est 
responsable de la perception phoné- 
tique du son. Si on remplit l’enve- 
loppe spectrale d'une voix avec 
n'importe quelle structure, la struc- 
ture phonétique est quand même 
perçue. Il en est de même pour les 
instruments : la forme de cette enve- 
loppe détermine des aspects - 
brillance plus ou moins accentuée, 
équilibre du son, etc. - qui consti- 
tuent une grande partie du timbre. 


L'autre approche (la structure fine 
du spectre) détermine la fréquence 
fondamentale - par l’espacement des 
raies -, la présence de bruits par rap- 
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port à des composantes de fréquen- 
ce bien définie, et les mouvements 
dynamiques de ces composants. 


OUTILS 


Les outils d'analyse que nous avons 
construits donnent donc l'enveloppe 
spectrale et les caractéristiques fines 
du spectre. Ce sont des modèles 
constamment améliorés pour être de 
plus en plus précis et robustes, tout 
un ensemble très volumineux de 
logiciels délicats à mettre au point. 


A chaque technique d'analyse cor- 
respond, en général, une technique 
de synthèse, représentée par un pro- 
gramme tout à fait nouveau, mais 
qui, d’une certaine façon, inverse le 
programme d'analyse. Il est même 
possible d'envisager des croisements 
entre plusieurs techniques d'analyse 
et de synthèse, démarche extrême- 
ment féconde, à condition que les 
interfaces entre ces différentes tech- 
niques soient possibles. Le problème 
est de normaliser des choses qui, a 
priori, ne sont pas équivalentes. Par 
exemple, la prédiction linéaire - une 
technique d'analyse d’enveloppe 
spectrale utilisée notamment avec la 
parole - est un moyen d'obtenir 
l'enveloppe spectrale. Les para- 
mètres de celle-ci sont, en fait, les 
paramètres d’un filtre, mais ils sont 
inutilisables dans le cas d’une syn- 
thèse additive ou FM. Il faut alors les 
convertir, non seulement en terme de 
traitement de signal, mais aussi de 
format de fichier. 


Un de nos objectifs sera de disposer, 
sur les futures stations musicales de 
l'IRCAM, de tous ces outils, avec la 
possibilité de passer d'un program- 
me d'analyse à un programme de 
synthèse presque indifféremment. 


Propos transcrits par 
Daniel Fournier 


(1) Langage comparable au C, et même 
plutôt meilleur ! 


(2) Un des langages les plus efficaces, en 
terme de facilité d'utilisation et de vites- 
se d'exécution. 


Con MOUSE MASTER 
| Boîtier de raccordement avec un double 
port souris commutable à l’aide d’un 
bouton et un port joystick 
(3 prises au {otal) 
290 francs + 15 Frs de port 


Tous deux sont bleu roi et frappés du sigle ST MAG. 
Les coffrets permettent. de ranger votre collection 
bien au chaud, à l'abri des lements de terre et 
des raz de marée. Les reliures permettent comme 
leur nom l'indique de relier votre collection comme| 
des pros. Chacun de ces indispensables investis- 
sements peut contenir 10 numéros. | 


Le coffret ou la reliure ST MAG : 
BOITE À FICHES 22.60 francs 


couleur argent, or ou bleue métallisée 


790 
HE — 
(CA 

| ps — 
LD | 


Le CD du jeu "ROCK STAR’ 


T2 Le Pack du siècle 


___ La boite à fiches 
Æ Le Track Ball 3.0 


| AVEZ-VOUS LA COLLECTION 
Ci COMPLÈTE DE ST MAG 2? 


+ LE PACK DU SIÈCLE N° 1 -X 


(Barrez les numéros inutiles) 


| 3456 7 8 9 10 11 12 13 14 15 16 17 18 19 20 


21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 
36 37 38 39 40 41 42 43 
ATTENTION !Certains numéros indiqués ne | 
| sont pas encore sortis. Ne commandez que les 
numéros précédant celui du mois en cours. 
comprend : 
+ 28 ANCIENS NUMEROS AU CHOIX : 


650 Frs port, compris ) 


la valeur réelle du pack est de 1060 francs !!! | 


3 MANETTES EN UNE SEULE 
%® Une souris (solide) + 

W% un Track ball (rapide) + 
un joystick à 345 Ff ,155 d port 


Recommandé par le magazine, pratiquement 
incassable, c’est l’accessoire indispensable. 


| Super l'ouveau Chouette Facile 


C'est possible. 


Merci d'envoyer votre règlement à l'ordre de 
PRESSIMAGE, 210 Rue du Fbg St Martin 
75010 PARIS, par CCP ou chèque bancaire. 
Etranger : virement bancaire ou chèque 
encaissable S.P. 




















PEDAGOGIE 


E L'INFORMATIQUE MUSICALE 


A partir de la prochaine 
rentrée universitaire, 
lIRCAM intensifie ses 
activités pédagogiques en 
instaurant un DEA 
d'informatique musicale. 
Jean-Baptiste Barrière, 
Responsable du 
Département Pédagogie de 
l'IRCAM, en trace les lignes 
directrices, et évoque les 
problèmes posés par la 
formation des 
compositeurs aux 
nouveaux moyens 
d'expression. 


Quel va être le contenu du Cur- 
sus d'Informatique Musicale ? 


Il va couvrir une année de formation 
extrêmement intensive et très lourde : 
les participants devront y consacrer 
tout leur temps et même plus ! Il 
s'adresse à des musiciens ayant termi- 
né leur formation - des compositeurs 
que l’on peut déjà distinguer d'après 
leur travail - mais qui, sur le plan de 


l'informatique musicale, n'ont pas 


encore reçu de formation - ou dont la 
formation a été plutôt empirique. 


Au cours de la première partie du 
Cursus, une partie théorique qui 
s'étendra sur neuf mois, les partici- 
pants recevront une initiation com- 
plète à la programmation en C et en 


Lisp. En observant dans le détail ces 
deux langages assez radicalement 
différents, l'objectif sera d’abord de 
les rendre capables de programmer 
des choses assez élaborées, mais sur- 
tout de lire des programmes. Cette 
initiation s'appuiera uniquement sur 
des exemples musicaux, et même 
dans les cas les plus éloignés, l’appli- 
cation musicale restera sous-jacente. 
En plus de cette partie programma- 
tion, ils examineront tous les 
concepts qui agitent l'informatique - 
jusqu’à l'intelligence artificielle et les 
réseaux neuronaux, par exemple. 


Il y aura également un séminaire 
scientifique, qui se fixera pour objectif 
d'étude - en adoptant une méthode 
analogue à celle qui est appliquée 
dans l'étude de la programmation - 
les concepts, les notions, les thèmes de 
connaissance qui articulent la forma- 
tion musicale. Car la programmation 
est un aspect particulier sur lequel il 
faut insister, mais il y a beaucoup 
d'autres sujets à considérer : l’acous- 
tique, le traitement de signal, etc. 


Ensuite, il y aura une partie infor- 
matique musicale - au sens strict du 
terme - qui recouvrira tous les 
thèmes que cette discipline aborde 
aujourd’hui : de l'analyse des sons 
par ordinateur à la synthèse, en pas- 
sant par le traitement, l’aide à la 
composition, l'analyse assistée, 
l'exécution, etc., et qui seront exami- 
nés de manière très circonstanciée, 
au travers de nombreux exemples. 


Enfin, il y aura un séminaire de 
composition au cours duquel des 
compositeurs viendront présenter 
certains de leurs travaux, expliquer 
les enjeux esthétiques, les problèmes 
auxquels ils ont été confrontés, les 
éléments qui ont bien ou n'ont pas 
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fonctionné, et éventuellement discu- 
ter des perspectives. 


Ceci constituera la première partie : 
la formation théorique. La seconde 
partie, qui durera deux mois, sera 
consacrée à la réalisation d’un projet 
personnel. Les compositeurs s'y 
retrouveront “seuls”, le temps de réa- 
liser une série d’esquisses ou une 
petite pièce montrée dans leur atelier, 
pendant l’automne suivant, avec, 
éventuellement, la participation de 
l'Ensemble Intercontemporain. 


Quels sont les rapports entre 
l’'IRCAM et les conserva- 
toires nationaux ? 


Je m'occupe déjà, dans le cadre de la 
classe de composition du Conserva- 
toire de Paris (1), d’un cours d'initia- 
tion à l'informatique musicale, réparti 
sur quasiment toute la durée des 
cours de composition, soit trois ans. 
Le Cursus de l’IRCAM a pour objectif 
de continuer cet enseignement, Car, 
compte tenu des contraintes spéci- 
fiques du Conservatoire - contraintes 
d'occupation principalement -, le 
cours d'initiation ne peut rester qu'à 
un certain niveau. En fait, le Cursus 
d'informatique peut être l’un des 
débouchés d’une filière créée par le 
conservatoire : le troisième cycle. 


Au CNSM de Lyon, les personnes qui 
s'occupent de la partie informatique 
musicale de la classe “Sonus” sont 
issus de l'IRCAM (Philippe Manou- 
ry). Une des cibles très originale de 
cette classe est de donner une base 
musicale plus large à des gens qui 
sont venus à l'informatique musicale 
- ou à la musique électronique - de 
manière un peu autodidacte, par des 
filières “non normalisées”. 





À l'issue du Cursus d'informatique 
musicale, les compositeurs peuvent 
repartir dans la nature, mais on peut 
aussi imaginer différentes manières de 
les insérer dans le tissu de l'IRCAM. 
Ainsi, ils pourraient faire partie de 
l’équipe des tuteurs, des assistants 
musicaux, et travailler pendant un an 
ou deux avec les compositeurs, afin de 
les aider à réaliser leurs projets. Ils 
pourraient aussi s'insérer dans l’équipe 
de recherche musicale et devenir des 
chercheurs travaillant sur un projet par- 
ticulier. Il y a donc différentes stratégies 
d'insertion - ou de prolongation d’un 
séjour - à l'intérieur de l'IRCAM. Pour 
certains compositeurs, il n’est pas non 
plus impossible, de trouver, dans le 
cadre d’une relation assez “large”, une 
forme plus légère et informelle 
d'accord qui leur permette de pour- 
suivre, en pointillé, un projet personnel. 


Quelle est l'attitude des com- 
positeurs face aux outils 
informatiques ? 


Chez à peu près tout le monde, il y a 
une motivation et un intérêt. Puis, 
suivant les personnalités, les réactions 
se diversifient. Dans certains cas, on 
observe une méfiance qui peut aller 
jusqu'à un désintérêt total, un rejet, 
car la volonté d'accepter l’investisse- 
ment nécessaire est absente. 


Cependant, dans la plus grande 
majorité des cas de figure, les com- 
positeurs ont la volonté d’avoir accès 
à tous ces outils. Mais l’investisse- 
ment consenti reste quand même 
très circonstancié, et pour cette caté- 
gorie d'utilisateurs, il faut que 
l'investissement en matière de 
connaissance, d'apprentissage, soit le 
plus court possible ; la distance entre 
la mise en oeuvre et le résultat doit 
aussi être la plus courte possible. Les 
outils sont assimilés et pensés dans 
la continuité des outils traditionnels, 
ils font partie de la palette, pourvu 
qu'une contrainte technologique ne 
vienne pas “refroidir” les utilisateurs 
dans leur appréhension. 


Enfin, il y a quelques acharnés qui 
n'ont peur de rien et sont prêts à 
aller très loin dans la maîtrise appro- 
fondie du fonctionnement de la 
machine. Curieusement, ces derniers 
sont de plus en plus rares. Cepen- 


dant, il faut apporter une précision : 
nous traitons une clientèle “triée sur 
le volet”, qui, globalement, a suivi 
une formation plutôt traditionnelle 
et classique. Cette situation est diffé- 
rente de celle des débuts de 
l'IRCAM, il y a une quinzaine 
d'années. A cette époque, les per- 
sonnes impliquées dans la musique 
électronique étaient principalement 
des spécialistes. Ce n’est plus du 
tout le contexte d'aujourd'hui, et 
nous payons maintenant le prix de 
ce degré d'engagement antérieur. 


Constatez-vous une différen- 
ce d’attitude chez les compo- 
siteurs les plus jeunes ? 


Dans la génération montante, on 
constate une meilleure maîtrise de 
base, une meilleure disponibilité, et, 
en même temps, une impatience 
assez largement non-constructive. 
Cela veut dire que les jeunes compo- 
siteurs ne veulent pas faire d’inves- 
tissements démesurés - des investis- 
sements temporels, dirais-je. Pour 
eux, il est important d’aller tout de 
suite à l'essentiel, sans s’encombrer 
de choses superflues, et cette attitu- 
de pose des problèmes terribles. 
Toute une génération d'outils, tel 
qu'UNIX par exemple, devient 
impensable et ne les intéresse abso- 
lument pas : il faut que tout fonc- 
tionne avec une interface de type 
Macintosh ou ST ! Des familles de 
problèmes, tout à fait intéressantes, 
deviennent, de ce fait, inabordables, 
car historiquement développées 
dans des contextes où les utilitaires 
de ce type n’existaient pas. 


Pour les mêmes raisons, la grande 
majorité de ces jeunes compositeurs, 
n'est pas capable de considérer la 
relation temps réel/temps différé : il 
faut que le système réagisse en 
temps réel, afin d’avoir une interac- 
tion immédiate. Toute une famille 
d'outils et de préoccupations dispa- 
raissent complètement devant une 
telle attitude. 


Faut-il alors adapter les 
outils ? 


Les concepteurs de système, aussi 
bien à l’intérieur qu'à l'extérieur de 


- 235 - 


Technologies Avancées 


l'IRCAM, doivent relever un défi : 
trouver des solutions de plus en 
plus efficaces, prenant les composi- 
teurs dans le sens de leur motiva- 
tion, mais aussi dans le sens de leur 
intuition. Jusqu'à présent, on ne par- 
tait pas de ces prémices-là, on 
essayait de définir un espace de pos- 
sibles et on en déterminait l’accès, 
de manière très dépendante de l’état 
de la maîtrise des techniques. Main- 
tenant, il va falloir se préoccuper de 
l'angle d'attaque, de la manière dont 
ces outils stimulent - ou ne stimu- 
lent pas - directement le composi- 
teur, en regard de son apprentissage 
traditionnel. Par rapport au passé, le 
changement de philosophie est 
assez important. 


Auparavant, le seuil critique de la 
maîtrise des moyens n'ayant pas été 
atteint, il était impossible de 
prendre ces exigences en considéra- 
tion. Désormais, les machines sont 
plus rapides, la technologie d’inter- 
face graphique rend l'interaction 
globalement plus facile - en tout cas 
pour certains types de problèmes - 
et il est possible de commencer à 
considérer les problèmes sous cet 
angle. Je pense, par exemple, qu’on 
va avoir de plus en plus d'inter- 
faces, en terme de notation tradi- 
tionnelle, intégrées dans un contrôle 
d'une autre nature. : 


Quels sont les types de pro- 
blèmes les Ales lea à 
résoudre ? 


La synthèse de très haute qualité - 
issue de l'expérience Chant, Formes, 
etc., et maintenant des modèles phy- 
siques - reste difficile à réaliser en 
temps réel, et quand on y parvient, la 
modélisation n'est pas possible sous 
une forme polyphonique. Mais cet 
aspect quantitatif, lié à la technologie, 
peut se résoudre aisément avec des 
machines qui “moulinent” plus vite. 


Les problèmes d'ordre qualitatif 
sont beaucoup plus complexes, car 
la qualité de l'interaction avec la 
machine revêt toutes sortes de 
formes. En général, lorsqu'un com- 
positeur souhaite faire quelque 
chose, on peut toujours, d’une 
manière ad hoc, trouver une solution. 
Par contre, les conflits entre généra- 





lité et spécificité sont très délicats à 
maîtriser. Une solution, bonne pour 
tel compositeur, dans telle pièce et à 
tel moment, peut soulever des pro- 
blèmes gigantesques dès qu'il s'agit 
de déborder du cadre fixé. De tels 
problèmes, liés à la nature du passa- 
ge de l’idée du compositeur à sa réa- 
lisation, se manifestent principale- 
ment au travers des systèmes 
d'interface et de langage. 


Quelles solutions entre- 
voyez-vous ? 


Dernièrement, nous avons accompli 
d'importants progrès avec le pro- 
gramme Patcher (3), qui est fondé 
sur le paradigme des langages de 
programmation visuelle, et orienté 
vers l'aspect “performance”. Il 
marque un effort dans le sens d'une 
programmation modulaire reposant 
sur un système de bibliothèques, car 
à partir d’un certain nombre de cas 
de figure prédéterminés, le composi- 
teur conserve la maîtrise de l'assem- 
blage. La réalisation des modules et 
la programmation interne des enti- 
tés graphiques que l’on raccorde les 
unes aux autres est réservée à des 
utilisateurs spécialisés. 


Cependant nous ne sommes pas 
encore parvenu au stade où un com- 
positeur peut, dans un premier 
temps, décrire son idée d’une 
manière extrêmement intuitive, et 
obtenir ensuite le résultat. L'enjeu le 
plus considérable dans les années à 
venir est pourtant là. Les recherches 
vont donc porter sur la découverte 
des formalismes les plus directe- 
ment connectés à la manière dont 
l'imagination des compositeurs 
fonctionne. Il y a une telle hétérogé- 
néité des formations, des idées, de la 
manière de penser, que de trouver 
des outils offrant les biais les plus 
courts possibles entre l’idée et le 
résultat, devient un projet extraordi- 
nairement complexe. 


Aujourd’hui les compositeurs disposent 
de boîtes à outils, qu'ils peuvent plus ou 
moins individualiser, avec lesquelles ils 
peuvent réaliser leurs applications, et 
arriver à construire leur propre univers, 
éventuellement aidés par un assistant. 
Le prochain cap sera de pouvoir façon- 
ner leur univers d’une manière naturel- 

















Dans le domaine de la formation 
aux techniques informatiques, 
l'IRCAM déploie ses activités péda- 
gogiques dans trois directions com- 
plémentaires, correspondant à des 
cycles d'étude de plus ou moins 
longue durée : 

e initiation ; 

e spécialisation; 

e cursus complet. 































Ces études sont avant tout desti- 
nées à compléter la formation des 
compositeurs issus des Conserva- 
toires Nationaux, en leur apportant 
les connaissances théoriques et pra- 
tiques nécessaires à la mise en 
oeuvre de systèmes informatiques 
comparables à ceux qui équipent 
les studios de l'IRCAM. 


Cours d’Initiation 
à l'Informatique Musicale 


Il est spécifiquement réservé aux 
étudiants du CNSM de Paris, et 
s'articule sur un enseignement 
théorique hebdomadaire (séances 
de 3 heures) assorti de travaux pra- 
tiques effectués en studio. 


Stages spécialisés 


Ils s'adressent aux compositeurs 
qui souhaitent acquérir, dans 
l'optique d’une production profes- 
sionnelle, les bases pratiques des 
technologies musicales reposant sur 
les systèmes d’information. Ils se 
déroulent sur une courte période 
d'enseignement intensif (2 à 5 jours 
complets), et sont centrés sur un 
thème unique : 

e acoustique et psycho-acoustique ; 
e analyse, synthèse et traitement 
des sons par ordinateur ; 

e technologie des systèmes MIDI; 

e composition assistée par ordina- 
teur ; etc. 


Cursus d'Informatique Musicale 
Un enseignement complet, courant 


sur une année entière, est destiné à 
assurer la formation des composi- 
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teurs ayant achevé leurs études 


dans les conservatoires nationaux 
(ou les compositeurs étrangers 
issus d'établissements équivalents). 
Il se décompose en deux phases : 

e formation pure,répartie sur une 
période de 25 semaines (octobre à 
mai), à raison de 4 séminaires heb- 
domadaires de 3 heures, au cours 
desquels les aspects théoriques et 
pratiques de l'informatique musi- 
cale sont examinés : 

+ science et musique : 

- acoustique ; 

- psycho-acoustique ; 

- traitement du signal audio- 
numérique ; 

- méthodologies de recherche ; etc. 

+ initiation à l'informatique et à la 
programmation ; 
+ informatique musicale:  . 

- analyse, synthèse et traitement 
informatique des matériaux 
sonores ; 

- composition assistée par ordinateur ; 

+ analyse et composition ; 
la partie pratique de cette forma- 
tion étant exécutée sur des stations 
d’esquisse (station musicale 
IRCAM ou systèmes personnels de 
type Macintosh) ; 
e réalisation de projet individuel, 
dans le cadre d’un environnement 
de studio informatique, dont le 
résultat est programmé au cours 
des ateliers-concerts de la saison 
qui suit. Il est réparti sur 2 mois 
pleins (juin et juillet). 


D'autre part, dans le contexte d'une 
formation à la musicologie du XXe 
siècle, l'IRCAM organise plusieurs 
séminaires, dont un consacré aux 
nouvelles technologies. Au cours 
d’une quinzaine de séances sont 
abordés les thèmes suivants : | 
e histoire de l’évolution des technologies ; 
e acoustique et psycho-acoustique ; 
e synthèse et traitement des sons 
par ordinateur ; 

e sonorisation et pratique de studio ; 
e temps réel ; 

e composition assistée par ordinateur ; 
e perspectives des recherches musicales etc. | 








le, de le décrire en termes de contraintes 
extrêmement intuitives, ne serait-ce que 
grâce à l'expérience des mécanisme 
d'apprentissage. 


Dans un contexte aussi com- 
plexe, les activités pédago- 
giques de l'IRCAM peuvent-. 
elles couvrir tout le champ de 
l'informatique musicale ? 


Pendant longtemps, le champ 
d'application de l'informatique 
musicale a été, presque exclusive- 
ment, le traitement de signal - prin- 
cipalement analyse et synthèse. 
Aujourd’hui on constate une fantas- 
tique explosion dans le domaine de 
la composition. Ceci est une consé- 
quence de l'investissement fait 
autour du contrôle de la synthèse - à 

- travers le programme Esquisse et la 
famille d'outils issue de PréFormes et 
de Patchwork. Ce domaine d'aide à 
la composition, qui découle directe- 
ment des expériences menées dans 
le domaine de l'intelligence artifi- 
cielle - et, à la limite, sert à faire de 
la musique purement instrumentale 
- est maintenant assez bien représen- 
té à l'IRCAM. 


Mais, les années passant, nous ne 
-sommes plus sûrs d’arriver à créer 
des pôles de compétences sur tous 
les domaines diversifiés qui sont 
désormais impliqués. L'analyse 
assistée par ordinateur, qui peut être 
“vue comme une autre face de l’aide 
à la composition, est, par exemple, 
un sujet sur lequel il faudra être pré- 
sent, car il intéresse beaucoup les 
musiciens. Même sur les thèmes 
“traditionnels”, nous avons de plus 
en plus de difficultés à être présents, 
car l'informatique musicale est 
maintenant devenue un marché. Un 
nombre de personnes considérable 
se trouve concerné par ce marché, et 
nous sommes obligés de constater 
qu'il nous est impossible de rivaliser 
avec certaines forces industrielles. 


Cela a-t-il une incidence sur 
les relations qui lient le com- 
positeur et l'IRCAM ? 


11 faudrait que l'IRCAM reste une 
Structure capable de s'adapter à ce 
que demandent les compositeurs. 
Mais aller jusqu'au bout de ce prin- 





cipe, peut nous conduire à des situa- 
tions insupportables : faire une 
machine spécialisée pour chaque 
pièce, etc. D'autre part, l'expérience 
montre que les compositeurs sont 
déstabilisés s'ils n’ont pas à suppor- 
ter un réseau de contraintes. I] s'agit 
donc de trouver un bon compromis. 


Le thème de l’aide à la composition 
est un thème moteur car on peut 
construire des environnements 
d'aide à la composition assez 
sophistiqués sur une machine 
comme le Macintosh, donc utilisable 
chez soi. Il s’agit à d'une possibilité 
importante, dans le cadre des activi- 
tés pédagogiques, car on peut ‘ren- 
voyer” le compositeur chez lui ! 
Venir ici, travailler en studio avec un 
assistant, supporter toutes sortes de 
contraintes sociales - car l’IRCAM 
est un lieu où il y a beaucoup de 
passage et des pressions psycholo- 
giques très fortes -, force est de 
reconnaître que tout cela a un 
impact sur la qualité du travail. Si le 
compositeur peut réaliser chez lui la 
majeure partie de son travail, en 
possédant la maîtrise de son outil de 
production, il y a toutes les raisons 
de penser qu'il arrivera à s'épanouir 
un peu mieux. 


Il faut maintenant arriver à axer la 
relation entre le compositeur et l'ins- 
titution sur un rapport beaucoup 
plus sain, dans lequel la structure 
n'est utilisée que pour ce qui lui est 
spécifique et très bien circonscrit, 
c'est-à-dire des outils de synthèse 
très sophistiqués. D'ici quelque 
temps il sera possible de réaliser 
l'essentiel de la modélisation chez 
soi, même et y compris toute la syn- 
thèse sous une forme simplifiée. 
Venir à l'IRCAM doit donc être, du 
point de vue des ressources maté- 
rielles spécifiques, une manière 
d'appuyer sur l'accélérateur. Mais il 
faut une continuité maximum entre 
la manière de travailler chez soi et la 
manière de travailler à l'IRCAM. 


Il y a une part sociale dans la pra- 
tique de la musique et, même avec 
une machine faisant l'essentiel de la 
synthèse, il faut quand même bien 
aller dans la salle de concert ou le 
Studio. Même s’il faut renvoyer le 
compositeur chez lui, je ne pense 
pas qu'il faille absolument suppri- 
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mer le rôle social, car il ne faut pas 
perdre le rapport à la structure. Il 
faut simplement se centrer sur les 
choses vitales, à savoir tous les 
aspects sociaux. Ceux-ci passent par 
les rapports entre le compositeur et 
l'instrumentiste, l'instrument et la 
machine, et également par le rap- 
port entre le compositeur et le cher- 
cheur. Ce qui est recherché dans ces 
Tapports, ce ne sont plus des 
machines super-performantes, mais 
des des compétences et des connais- 
sances : le compositeur vient poser 
un problème pour avoir un avis, une 
solution, des esquisses, une palette 
de solutions. Venir consulter des 
spécialistes, leur exposer des pro- 
blèmes théoriques complexes qui 
nécessitent un bagage en mathéma- 
tique, en physique, ou encore en 
psycho-acoustique est une attitude 
véritablement constructive. 


L'IRCAM doit être là pour faire la 
conjonction de toutes ces compétences, 
plus que pour des ressources maté- 
rielles et logicielles, et ce rôle social me 
paraît extrêmement important. 


Propos recueillis par 
Daniel Fournier 


(1) Conservatoire National Supérieur de 
Musique de Paris. 


(2) Macintosh Programming Workbench. 


(3) Voir, dans ce numéro, l'article sur la 
station musicale IRCAM. 








Élaboré en plusieurs 
étapes, marqué par des 
prototypes successifs 
(4A, 4B, 4C), le système de 
traitement de signal 
numérique 4X conserve, 
près de dix années après 
sa réalisation, des 
capacités exceptionnelles. 
Il constitue désormais un 
modèle de référence pour 
toutes les machines de 
traitement du son 
numérique. 


LE SYSTEME 4X 


Doté de performances très élevées 
(200 millions d’opérations/seconde), 
le système 4X est dédié au calcul des 
échantillons numériques permettant 
de réaliser tous les types de synthè- 
se algorithmique actuellement 
connus : 

e additive ; 

e soustractive et filtrage numérique ; 
e modulation de fréquence ; 

e échantillonnage ; 

ainsi qu’une grande variété de trai- 
tements typiques du son : 

e modulation en anneaux, harmoni- 
sation ; 

e réverbération, écho, phasing ; 

e analyse fréquentielle (FET, corréla- 
tions, suivi de hauteur), etc. 


Ses caractéristiques principales corres- 
pondent aux exigences actuelles de 
l’audionumérique professionnelle : 

e données représentées sur 16 bits ; 

e dynamique atteignant 96 dB ; 

e bande passante de 20 kHz. 


ARCHITECTURE 


Conçu comme périphérique d'un 
ordinateur central (pourvu d'une 
interface utilisateur et de périphé- 
riques de stockage), le système 4aX 
est un système modulaire, reconfi- 
gurable en temps réel par micropro- 
grammation, composé de : 

e 1 à 8 cartes de traitement du 
signal (4U) ; 

e 1 carte d’interface avec la 
machine hôte ; 

e 1 carte de contrôle pour l'acquisition 
et la restitution des données numé- 
riques (convertisseurs A/N et N /A). 


Chaque carte AU peut travailler à sa 
propre fréquence d'échantillonnage 
(variable de 16 à 512 kHz), afin 
d'obtenir une bande passante s’éten- 
dant de 8 à 256 kHz. 

Une carte AU comporte deux unités 
de calcul : 

e arithmétique et logique ; 
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e multiplication. 

Les calculs arithmétiques sont effec- 
tués en virgule fixe, sur des données 
codées sur 24 bits, selon un cycle de 
base de 60 ns (16 MHz). 


Plusieurs mémoires internes cOmM- 
plètent la carte AU : 

e mémoire de fonctions, 64 Kmots 
en codes opérations de 16 bits ; 

e mémoires de données, 24 Ko en 
données de 24 bits ; 

e mémoires d'adresses ; 

e mémoire de microprogramme, 
1024 instructions codées sur 48 bits. 


Les instructions des différentes uni- 
tés, décomposées en étapes s'excécu- 
tant dans un pipeline, sont effec- 
tuées en parallèle. 


La carte de contrôle du système 4X 
est pourvue de : 

e 256 temporisateurs program- 
mables, générant un signal d'inter- 
ruption sur une ligne reliée au calcu- 
lateur hôte ; 

e 2 mémoires tampons, pour 
lire/écrire les données sur disque ou 
en mémoire du calculateur hôte ; 

e un module de gestion du bus 
interne du système 4X ; 

e un module de gestion des E/5. 


PROGRAMMATION 


La programmation d'un système 4x 
peut s'effectuer à deux niveaux : 
assembleur et langage évolué compilé. 


Assembleur-optimiseur 

Un assembleur décrivant les opéra- 
tions élémentaires (transferts 
registre/registre, mémoire de don- 
nées/registre, lecture/écriture en 
mémoire de fonctions, etc.) a été 
couplé à un optimiseur qui assure la 
gestion du parallélisme des instruc- 
tions. Le parallélisme est en fait tota- 
lement transparent pour le program: 
meur, qui peut concevoir le 


_out[0] ... 


structure de son programme de 
manière séquentielle. Cet assem- 
bleur peut être mis en oeuvre aussi 
bien en mode compilé qu'en mode 
interprété. 


Compilateur 4X 

Développé par Andrex Gerzso, le 
4X Patch Language a pour but princi- 
pal de faciliter l'élaboration et la 
programmation des algorithmes 
d'analyse et de synthèse des sons 
numériques. Il permet d'utiliser des 
identificateurs symboliques pour 
référencer les données stockées en 
mémoire ou dans les registres 
internes des cartes AU. 


La syntaxe du langage a été volon- 
tairement simplifiée. Elle répond à 
la forme : 
(sorties) = 
nom(vars partitions| vars entrées) 
( 
(déclaration de variable) 
def { 
variable = valeur ; 


} 
expressions ; 
copy n fois (expressions) 


) 


La commande ‘copy’ est utilisée 
pour signifier la duplication du 
code, avec incrémentation d'adresse, 
dans le cas d’algorithmes récursifs. 


Une variable peut être : 

e simple (codée sur les 24 bits supé- 
rieurs d’un mot de 32 bits): 

e vectorisée - la dimension est indi- 
quée entre [], en partant de l'indice 
0, comme dans le langage C ; 

e de dimension indéterminée, 

Elle peut également être affectée 
d'un facteur d'échelle utilisé lors de 
son initialisation. 


Les convertisseurs N/A et A/N sont 
représentés par leurs indices dans le 
vecteur qui les désigne : 

in{0] ... in{[15] pour les A/N; 

out [15] pour les N/A. 


Le langage reconnaît un certain 
nombre d'opérations simples : 

e addition et soustraction, avec 
option de contrôle du dépassement 
de capacité ; 

e fonctions logiques (AND, OR, XOR) ; 
e décalages arithmétiques et 
logiques à droite et à gauche ; 


Processeurs élémentaires 4U 
(8 au maximum) 


Technologies Avancées 


Bus calculateur hôte 


Carte 
Contrôle 


4X Structure fonctionnelle 


e lecture et écriture en mémoire de 
fonction (RFUN, WFUN). 


Le compilateur 4X possède un opti- 
miseur de code assembleur généré à 
la suite de l’analyse lexicale, syn- 
taxique et sémantique. Ce code 
assembleur est ensuite lui-même 
optimisé, comme nous l'avons vu 
plus haut. 


LA STATION 4X 


Le système 4X forme l’épine dorsale 
des quatre stations musicales 4X 
dont dispose l’'IRCAM. Chacune 
comprend : 

e un poste de développement fonc- 
tionnant sous UNIX, et qui permet 
de mettre en oeuvre le compilateur 
et l’assembleur ; 





e un calculateur temps réel, à base 
de microprocesseur MC68000, 
entouré de périphériques de contrô- 
le, pupitre de commandes analo- 
giques, clavier musical, interfaces 
MIDI, reliés par un bus VME : 

e un système 4X assorti de conver- 
tisseurs A/N et N/A. 


À terme, ces stations 4X, sur les- 
quelles de nombreuses oeuvres com- 
mandées par l'IRCAM ont vu le jour, 
devraient céder la place à la nouvel- 
le génération de machines, celle de 
la nouvelle station musicale basée 
sur le NeXT. L'empreinte du systè- 
me 4X n'en demeurera pas moins 
gravée dans l'histoire musicale de la 
fin du vingtième siècle. 


Daniel Fournier 














TUBES 


ET MÉMOIRE PARTAGÉE 


Dans notre précédent 
article, nous avions passé 
en revue l’ensemble des 
moyens dont disposaient 
des processus UNIX 
indépendants pour 
communiquer. Cet article 
complète certains points de 
détails sur les tubes, et 
présente le concept de 
mémoire partagée, avec 
ses contraintes d'exclusion 
mutuelle. 


OUVERTURE NON BLOQUANTE 
DE TUBES BLOQUANTS 


Les tubes sont par défaut en mode 
dit bloquant, c'est-à-dire que la lectu- 
re, l'écriture, et l’ouverture peuvent 
mettre le programme en sommeil 
(l’ôter de la pile des processus actifs, 
qui accèdent périodiquement au 
processeur central) : 


e une lecture bloquante dans un tube 
vide endort le processus - il ne sera 
réveillé que lorsqu'un autre proces- 
sus aura écrit quelque chose dedans ; 
e une écriture bloquante dans un 
tube plein endort le processus - il ne 
peut être réveillé que lorsqu'un 
autre processus a suffisamment vidé 
le tube (lu dans le tube) pour qu'il y 
ait la place d'écrire ; 

e une ouverture d’un tube dans 


lequel aucun processus ne peut écri- 


re endort le programme jusqu'à ce 
qu'un autre processus. ouvre le 
même tube en écriture ; 


Il semble donc que les tubes blo- 
quants n'apportent que des ennuis. 
Maïs ils présentent un intérêt consi- 


dérable au niveau de la synchronisa- 
tion des processus : on peut s'assurer 
ainsi qu’un processus démarrera au 
bon moment. Par exemple, une 
ouverture bloquante est cruciale dans 


#include <stdio.h> 
/* on suppose qu'il existe déjà un tube nommé de nom : 
char *NomDuTube = “tube nomme”; 


main () 
{ 
FILE *PIn; 


if (£ork() == 0) 
{ /* processus bidon */ 
FILE *pPBidon; 


PBidon = fopen ( NomDuTube , 
/* ne sert qu'à réveiller le père */ 


exit (0); 
} 
Pin = fopen ( NomDuTube , “r” ); 


ne soit pas bloquante, il suffit de 
lancer un faux processus, qui va 
“faire semblant” d'écrire dans le 
tube (pour réveiller le processus 
utile) et mourir juste après : 


1 PER /* réveil du père */ 


[* ... le processus père continue presque instantanément ... */ 


le cas où le processus qui doit lire 
dans le tube est lancé avant le proces- 
sus qui doit y écrire : si l'ouverture 
n'était pas bloquante, le processus 
lecteur se mettrait à lire avant que le 
processus qui écrit soit lancé, trouve- 
rait le caractère FIN DE FICHIER, et 
s'arrêterait prématurément. 


Malheureusement, si les tubes à lec- 
ture et écriture bloquantes sont 
utiles, on aimerait parfois que leur 
ouverture ne le soit pas, ce qui n’est 
pas possible avec les tubes primitifs 
d'UNIX (on a le choix entre les tubes 
bloquants et non bloquants, mais pas 
au panachage des propriétés). On est 
donc obligé de recourir à une astu- 
ce : le lancement de faux processus. 


Si on veut par exemple que l'ouver- 
ture en lecture d’un tube bloquant 


- 240 - 





Cette astuce ne peut pas, par contre, 
fonctionner directement de cette 
manière pour ouvrir un tube blo- 
quant en écriture, car un processus 
qui peut écrire dans un tube qui ne 
peut être lu par aucun autre proces- 
sus reçoit un signal SIGPIPE, qui met 
radicalement fin à ses jours. Pour 
éviter cela, on installe généralement 
une temporisation sleep juste avant 
l'ordre exit, ce qui laisse le temps à 
un autre processus d'ouvrir le tube 
en lecture : 


main () 
{ 
FILE *PIn, *POut; 


if (fork() = 0) 


{ 
FILE *PBidon; 


PBidon = fopen {| NomDuTube , ‘r" li, 
sleep { 1000 j; 
exit (0); 

} 

POut = fopen ( NomDuïube , “w” ); 

Pin = fopen { NomuTube , ‘r' ); 

/* suite du programe, qui dispose +/ 

[* d'une variable FIFO personnelle */ 

HLOPEELT 

} 


Le premier fopen du père est réveillé 
par le fopen du fils. Si par malheur le 
fils mourait avant le deuxième fopen 
du père, le père recevrait un SIGPI- 


PE. C'est pourquoi la temporisation - 


sleep assure que le deuxième fopen 
du père est bien effectué avant la 
mort du fils. 


TAILLE DES TUBES 


Suivant les versions d'UNIX, la taille 
des tubes (c'est-à-dire le nombre de 
caractères qui peuvent être écrits 
avant que l'écriture soit bloquante), 
peut varier considérablement. 
Cependant, elle est toujours faible, 
en général inférieure à 10 Ko. 


Cette caractéristique des tubes peut 
poser un problème : comment fait- 
on pour passer, à travers ce tube, un 
gros tableau ? Cette question peut 
paraître à première vue simple à 
résoudre : puisque l'écriture est blo- 
quante, même si on écrit un gros 
tableau, l'écriture s’endormira le 
temps que le programme qui lit vide 
suffisamment le tube. De même, si 
on lit un gros tableau, l’ordre read se 
bloquera périodiquement, le temps 
que le programme qui écrit remplis- 
se à nouveau le tube. 


Malheureusement, la fonction read() 
(ou write()) ne vérifie le caractère 
bloquant du tube qu'une seule fois : 
au moment où elle est appelée. La 
conséquence est qu'un ordre read 
chargé de lire 2 Mo commencera par 
tester si le tube contient quelque 
chose, puis lira brutalement 2Mo, et 
enfin renverra un code d'erreur 
signifiant que tout s’est déroulé nor- 
malement ! 


Voyons maintenant ce qui se passe 
du point de vue du programmeur : il 
a beau truffer son programme de 
tests, UNIX lui affirme que tout se 
passe correctement, maïs pourtant la 


plus grande partie de ses 2 Mo est 
remplie du caractère nul ! Pour peu 
qu'il ne vérifie le comportement de 
son programme que pour les pre- 
miers Ko du tableau, il aura l’impres- 
sion que son programme est correct. 


La solution est évidemment de 
découper la lecture de 2 Mo d’un 
seul coup en une myriade de lectures 
de portions de tableau de taille infé- 
rieure à celle du tube. L'évidence de 
cette solution est tellement flagrante 
que la documentation UNIX ne fait 
jamais la moindre allusion à ce pro- 
blème, voire laisse croire qu'aucun 
problème ne peut se produire... 


LES TUBES AMÉLIORÉS 


Il manque aux tubes une qualité fon- 
damentale qui pourrait encore aug- 
menter considérablement leur utilité. 


Dans un programme classique utili- 
sant les tubes, là procédure chargée 
de la lecture est obligée de passer son 
temps à attendre que quelque chose 
veuille bien se présenter, que ce soit 
par une lecture bloquante ou par une 
scrutation périodique. Il serait bien 
sûr beaucoup plus facile d'être pré- 
venu lorsque le tube contient quelque 
chose. Or, les interfaces de program- 
mation récentes (GEM, Windows, X 
Window, etc.) sont basées sur ce prin- 
cipe pour une grande partie des évé- 
nements qu'elles doivent gérer (cla- 
vier, souris, etc.). 


Il est donc naturel que certaines 
d'entre elles proposent au program- 
meur des tubes améliorés, capables 
de prévenir lorsqu'un autre proces- 
sus écrit dans le tube, c’est-à-dire 
déclencher automatiquement une 
procédure déclarée par le program- 
meur comme pouvant gérer cet évé- 
nement. Cela se révèle incroyable- 
ment plus utile que ça en a l’air à 
première vue. En fait, il faut tenter 
de transposer un programme utili- 
sant massivement ce concept vers 
une autre interface de programma- 
tion pour se rendre à quel point c’est 
un outil puissant. En effet, il combi- 
ne le grand débit de données des 
tubes normaux avec le principe 
d'interruption logicielle des signaux. 


Cet article ne présente pas d'exemple 
de programme utilisant ce genre de 
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tube, car il faudrait exposer un grand 
nombre de définitions spécifiques de 
l'interface de programmation consi- 
dérée. Cependant, pour ceux qui 
connaissent Sunview, la fonction 
notify set input func() permet de 
déclarer ces “tubes qui préviennent”. 


LA MÉMOIRE PARTAGÉE 


Les tubes sont des outils très intéres- 
sants par leur simplicité de mise en 
oeuvre et par leurs performances. 
Mais il est un domaine où ils sont 
très mal adaptés : c'est lorsqu'ils 
doivent communiquer à un grand 
nombre de processus des informa- 
tions identiques. 


C’est le cas lorsqu'on souhaite avoir 
des variables globales à plusieurs pro- 
cessus. Au-delà de 4 ou 5 processus, 
il faut un nombre de tubes plutôt 
grand, et cela devient très lourd à 
gérer. De plus, tous les ordres d’écri- 
ture doivent être dupliqués : un 
message par processus à prévenir. 


Rappelons simplement que les diffé- 
rents processus partagent les mêmes 
adresses en mémoire, ce qui fait 
qu'ils ne peuvent absolument pas 
communiquer par des variables glo- 
bales à adresse fixe, comme c'est le 
cas sur micro (cf. l'article précédent, 
qui montre que lors d’un fork, le 
processus fils, bien qu'étant exacte- 
ment aux mêmes adresses que son 
père, disposait d'une copie privée de 
l'image mémoire du père, dans 
laquelle les modifications ne sont 
pas reportées vers l’autre processus). 


Pour résoudre ce genre de difficulté, 
on va appliquer le même principe 
que lorsqu'il faut rendre des 
variables globales à plusieurs procé- 
dures dans un programme clas- 
sique. Lorsqu'il y a trop de variables 
communes dans un groupe de pro- 
cédures, on les rend globales : en 
Pascal ou en C, elles deviennent glo- 
bales au fichier (catégorie static du 
C), ou complètement globales (caté- 
gorie extern du C). En Modula-2 ou 
en Ada, on peut ajuster plus fine- 
ment la portée des variables. 


Le principe retenu par les primitives 
de mémoire partagée d'UNIX Sys- 
tem V est assez différent : la visibili- 
té d’une zone de variables est défi- 














nie par une clé. Chaque processus 
possédant la clé d'une zone de 
mémoire partagée peut y accéder, et 
il faut bien sûr absolument disposer 
de la clé pour y accéder. 


La zone de mémoire partagée est 
accessible par un pointeur, ce qui 
fait que son comportement est exac- 
tement identique aux zones de 
mémoire privées, la différence étant 
que les autres processus accédant à 
la même zone de mémoire peuvent 
modifier son contenu à tout moment 
et sans prévenir. 


Les rois de l’assembleur M68000 et 
autres bidouilleurs de variables systè- 
me de leur ST se posent déjà la ques- 
tion cruciale : comment cela se passe-t- 
il si deux processus écrivent en même 
temps dans la même case mémoire ? 
Que va lire un processus au moment 
où un autre est en train d'écrire ? 


Sur micro, on a la bonne habitude 
d'interdire les interruptions lorsqu'on 
accède à ce genre de variable. C'est 
strictement impossible sous UNIX : 
aucun processus (et surtout pas un 
processus lancé par un utilisateur) ne 
peut s’attribuer l'intégralité de la 
puissance du processeur. Ce qui fait 
que-le programmeur n'a aucune 
garantie quant au temps que va 
mettre son processus à effectuer une 
portion donnée de code (il faut pour 
cela des systèmes d'exploitation dits 
temps réel ; il existe d’ailleurs certaines 
versions d'UNIX capables de ce genre 
de performance). Or, on ne doit pas 
interdire une interruption pour un 
temps trop important. 


Enfin, sur une machine UNIX, les 
interruptions ont une fonction infini- 
ment plus vitale que sur micro, sans 
parler de la complexité de ce qu’elles 
doivent gérer. Il faut donc mettre en 
place un système d'exclusion 
mutuelle. On verra dans un prochain 
article comment les sémaphores per- 
mettent de résoudre cette difficulté. 
Pour l'instant, regardons comment 
on utilise une mémoire partagée. 


La première action est de définir 
une clé, qui préservera la confiden- 
tialité de la zone de mémoire vis-à- 
vis des processus qui ne doivent pas 
y accéder. Cette clé est tout simple- 
ment un nombre entier déguisé en 





type key t en C. On fait alors appel à 
la fonction shmget : 


int shmget (cle, taille, flag) 
int taille, flag; 
key t cle; 


Cette fonction est chargée de ren- 
voyer l’identificateur de la zone de 
mémoire partagée, ce qui permet 
d'appeler d'autres fonctions de ges- 
tion de ces zones de mémoire (un peu 
comme le VDIHandle sous GEM permet 
d'accéder aux fonctions VDI). 


Ensuite, on attache le segment de 
mémoire partagée à une adresse gérée 
par le programmeur. En général, cette 
adresse est considérée comme un poin- 
teur vers une structure, ce qui permet 
de considérer le segment comme une 
simple variable structurée : 


(char *) shmat(ident, adresse, flag) 
(Structure *) adresse; 
int ident, flag; 


Puis on peut consulter les caractéris- 
tiques de ce segment par la fonction 
shnctl(), qui est surtout utile aux 
programmes qui ne créent pas le 
segment, mais se contente de l'atta- 
cher à un de leurs pointeurs. On 
peut ainsi avoir accès aux informa- 
tions suivantes : 


e droits d'accès au segment (un peu 
comme pour un fichier) 

e taille en octets 

e PID du processus ayant effectué la 
dernière opération 

e date du dernier attachement 

e date du dernier détachement 

e date du dernier changement 


int shmctl (ident, operation, 


descripteur) 
int ident, operation; 
shmid ds xdescripteur; 


L'opération peut être l'une des trois 
suivantes : 


e IPC STAT : lecture de la structure 
shmid ds, qui est placée dans descrip- 
teur. Cette structure rassemble les 
informations listées ci-dessus ; 

e IPC SET : cette fois, c'est le conte- 
nu de descripteur qui est écrit dans 
la structure shmid ds de la zone de 
mémoire ; 

e IPC_RMID : détruit le segment de 
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mémoire. Cette opération est indis- 
pensable, car sinon le segment de 
mémoire est maintenu jusqu'à la 
prochaine réinitialisation de la 
machine, ce qui peut être gênant si 
le segment est important ou si beau- 
coup de programmes omettent de 
détruire leurs segments. Rappelons 
qu'une machine UNIX est réinitiali- 
sée beaucoup moins souvent qu’un 
micro, car elle fait généralement par- 
tie d’un réseau, et son arrêt, même 
momentané, constitue une dégrada- 
tion de la qualité globale des perfor- 
mances du réseau. 


Enfin, si on ne souhaite pas détruire 
le segment, pour pouvoir le retrou- 
ver intact lors d'une future utilisa- 
tion du logiciel, ou pour ne pas per- 
turber d’autres programmes qui 
l'utilisent simultanément, on peut se 
contenter de détacher le segment 
par la fonction shndt : 


int shmdt ( adresse ) 
(Structure *) adresse; 


On verra comment synchroniser les 
accès à la mémoire partagée lors 
d’un prochain article. Mais ces pré- 
cautions sont inutiles dans un cas 
bien précis : si on souhaite lire ou 
écrire une variable de 1, 2 ou 4 
octets. En effet, bien que cela parais- 
se un peu “sale”, on peut compter 
sur le fait que les ordinateurs récents 
peuvent lire ou écrire des variables 
de cette taille en une seule instruction 
du microprocesseur. Ces instructions 
sont bien sûr non interruptibles, ce 
qui assure l'exclusion mutuelle. Bien 
que cela semble à première vue une 
astuce fort peu recommandable, elle 
est assez utilisée, car la lourdeur de 
l’utilisation des sémaphores, même 
“recarrossés” par des fonctions plus 
conviviales, fait éviter au maximum 
leur utilisation pour des opérations 
aussi simples. 


Marc Lussin 









Prochainement... 


Nous examinerons en détail les séma- 
phores, et les différentes manières de les 
“cuisiner” (il y en a plusieurs !). Pour exer- 
cice, on verra qu'on peut simuler les tubes 
avec les sémaphores et la mémoire parta- 
gée, qu'on peut simuler les sémaphores 
avec 3 tubes ou un tube et des signaux, etc. 
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HE existe aujourd'hui une nouvelle liberté 
Ba d'expression. Pour la première fois se trou- 


vent réunis au sein d’un traitement de textes : 


e la puissance (glossaire universel, dictionnaire, 
processeur d'idées, notes et commentaires, feuil- 
les de style, gestion dechapitres inter-documents, 
publipostage, outils graphiques). 

e la souplesse (multi-colonnage réel, mode gra- 
phique haute résolution WYSTWYG ou mode texte 
rapide, polices vectorielles ou polices GDOS*, 
import/export de nombreux formats de fichiers 
textes ou graphiques, option réseau) 


. lafacilité d'utilisation (installation automatisée, 
création instantanée de tableaux ou de formules 
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mathématiques, prévisualisation du document, inter- 
face utilisateur intuitive). 


Découvrez la liberté d'écrire. 
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